updatebbs.asp

基于asp的 班级同学录主页源代码

<!--#include file="connbbs.asp"-->
<!--#include file="../const.asp"-->
<%if session("user")<>sysadmin then
response.redirect "../err.asp"
else
if request("action")<>"update" then
bbsid=trim(request("bbsid"))
set rs=server.createobject("ADODB.recordset")
sql="select * from bbslist where id="&bbsid
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then%>
<table width=90%><tr><td width=100% align=left>
<form action=updatebbs.asp method=post>
论坛名称：<input type=text name="bbsname" value="<%=rs("bbsname")%>"><br>
论坛版主:<input type=text name="bbsadmin" value="<%=rs("bbsadmin")%>">(格式：|版主一|版主二|,注意:最前面和最后面一定要有"|"号<br>
论坛说明:<input type=text name="bbsinfo" value="<%=rs("bbsinfo")%>"><br>
论坛图片:<input type=text name="bbsimage" value="<%=rs("bbsimage")%>"><br>
只允许:<select name="lock"><option value="0" <%if rs("lock")=0 then%>selected<%end if%>>全体人员</option>
<option value="2" <%if rs("lock")=2 then%>selected<%end if%>>男生</option><option value="1" <%if rs("lock")=1 then%>selected<%end if%>>女生</option></select>访问
<input type=hidden name="action" value="update">
<input type=hidden name="id" value="<%=rs("id")%>">
<input type=image src=../image/1-sub.gif>
</form></td></tr></table>
<%
end if
rs.close
set rs=nothing
elseif request("action")="update" then
id=trim(request("id"))
bbsname=trim(request("bbsname"))
bbsinfo=trim(request("bbsinfo"))
bbsadmin=trim(request("bbsadmin"))
bbsimage=trim(request("bbsimage"))
lock=trim(request("lock"))
conn.execute"update bbslist set bbsname='"&bbsname&"',bbsinfo='"&bbsinfo&"',bbsadmin='"&bbsadmin&"',bbsimage='"&bbsimage&"',lock="&lock&" where id="&id
response.write"更新成功"
end if
end if%>