adminxg.asp

简单的留言版asp原码,供学习参考,里边有详细说明

<!--#include file="conn.asp"-->
<%
if session("bxgzsadmin")="" and session("bxgzspass")="" then
response.write"<script>alert('参数错误');location.href='javascript:history.back()'</script>"
response.end
end if

set rs=server.createobject("adodb.recordset")
sql="select * from admin"
set rs=conn.execute(sql)
%>
<table border="0" width="224" height="45" cellspacing="1" bordercolorlight="#FFFFFF" bordercolordark="#C0C0C0" cellpadding="0">
    <tr>
      <td width="346" height="1" colspan="2" align="center"><b>管理登陆</b></td>
    </tr>
    <tr><form method="post" action="adminxg.asp?id=<%=rs("id")%>">
      <td width="193" height="1" align="center">名称：</td>
      <td width="196" height="1" align="center">
      <input type="text" value=<%=rs("Admin")%> name="Username" size="22" style="width: 89; height: 19">
      </td>
    </tr>
    <tr>
      <td width="193" height="45" align="center">密码：</td>
      <td width="196" height="45" align="center">
        <input type="password" value=<%=rs("Pass")%> name="PassWord" size="22" style="width: 89; height: 19">
      </td>
    </tr>
    <tr>
      <td width="330" height="1" align="center" colspan="2">
<input type="submit" name="Submit" value="[确定]" class="bt">
        <input type="reset" name="Submit" value="清 除"></td></form>
    </tr></form>
  </table>
<%
if request("id")<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from admin where id="&request("id")
rs.open sql,conn,1,3
username=trim(request("Username"))
password=trim(request("password"))
if username="" or password="" then
response.write"<script>alert('用户为空');location.href='javascript:history.back()'</script>"
response.end
end if
rs("Admin")=username
rs("Pass")=password
rs.update
response.redirect "index.asp"
end if
rs.close
set rs=nothing
%>