zoom.asp

不错的一个网站哦, 不错的一个网站哦

<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<%
if request("action")="re" then
Set rs=Server.createObject("ADODB.RecordSet")
sql="select re from book where id="&Request.form("id")
rs.open sql,conn,3,2
rs("re")=Request.form("tp")
rs.update
rs.close
response.write("<script>alert('成功回复')</script>") 
response.redirect "ly.asp"
end if
%>
<%
if request("action")="del" then
Set rsa=Server.createObject("ADODB.RecordSet")
sql="delete from book where id="&Request("id")
rsa.open sql,conn,3,2
Response.Redirect "ly.asp"
end if
%>
<%
if request("action")="editpass" then
Set rs=Server.createObject("ADODB.RecordSet")
sql="select admin_name,admin_password from admin"

rs.open sql,conn,3,2
if md5(trim(Request.form("oldpass")))=rs("admin_password") then
rs("admin_name")=trim(Request.form("username"))
rs("admin_password")=md5(trim(Request.form("pass")))
rs.update
rs.close
%>
<script language=Javascript>
<!--
alert("修改成功");
this.document.location="modifypsw.asp";
-->
</script>
<%
else
%>
<script language=Javascript>
<!--
alert("愿密码错误！\n\n请返回重输");
history.go(-1);
-->
</script>
<%
end if
end if
%>