adadmin.asp

超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来

<!--#include file="../incbook/connad.asp"-->
<%
if request.form("pass")="123456789" then
session("user")="123456789"
end if
if session("user")<>"123456789" then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=../'>")
else
session("user")="123456789"
set rs_adshow=server.createobject("adodb.recordset")
sql_adshow="select * from ad "

rs_adshow.open sql_adshow,conn,3,2
do while not rs_adshow.eof
%>
<form action=adupdata.asp >
<input type="hidden" name="id" value="<%=rs_adshow("id")%>">
<input type="text" name="content" value="<%=rs_adshow("content")%>" size="18">
<input type="text" name="url" value="<%=rs_adshow("url")%>" size="39">  
<input type="text" name="sum" value="<%=rs_adshow("sum")%>" size="4"> 
<input type="text" value="<%=rs_adshow("setok")%>"  name="setok" size="4">  
<input type="submit" value="提交" name="B1">  
</form>  



<%  
rs_adshow.movenext
loop
%>
<hr>
<form action=adadd.asp >
<input type="text" name="content" size="18">
<input type="text" name="url"  size="39">
<input type="submit" value="添加" name="B1">  
</form>
<hr>  
<form action=addelete.asp >
<input type="text" name="content" size="18">
<input type="submit" value="删除" name="B1">  
</form>  
<%
end if
%>