<%
call case3 '调用case3函数
if request("post")="true" and (ps("gonggong")=1 or ps("chaoji")=1) then '条件语句
call wri '如果满足上面的条件就调用wri函数
end if //这句就不用了哈!
function wri '定义wri函数
if request("title")<>"" and request("content")<>"" then '条件语句
set rs=server.CreateObject("adodb.recordset")'打开数据库
sql="select * from gonggong where id="&session("id")'打开数据库条件语句
rs.open sql,conn,1,3'打开数据库
rs("title")=request("title")
rs("content")=request("content")
rs("name")=session("admin_name")
rs("time")=now()'以上几个都是获取数据
rs.update'更新数据库
rs.close'关闭数据库
response.Redirect("chenggong.htm")'跳转到chenggong.htm
else //本行不用解释
response.Write("")'js语句弹出窗口提示“请把信息填写完整”
end if //本行不用解释
end function'wri函数到此结束
if request("id")="" then'条件语句
response.Write("您不是管理员")
end if //本行不用解释
set rs1=server.CreateObject("adodb.recordset")'以下也是打开数据库
sql1="select * from gonggong where id="&request("id")
rs1.open sql1,conn,1,1
%>
复制到dreamweaver里看更清楚
请把要解释的标注一下亲。。