adminedit.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="conn.asp"-->
<style type="text/css">
<!--
body,td,th {
	color: #000000;
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
}
a {
	font-size: 12px;
	color: #000000;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style>
<table width="778" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td> <%dim username,sql,type2,ad
ad=request.querystring("ad")
type2=request.queryString("type2")
use=request.querystring("use")
	if Session("chong")<>4 then
Response.Write("兄弟，你的权力不够啊！快来给我送点礼吧")
	Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>哎，回去吧</font></a>")
	else
Select Case type2
  Case "saveedit":
		Call saveedit
	Case Else:
		 call show
End Select
 End If
sub show
 set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from admin",conn,1,3%>
<BR>
<table width="778" border="0" cellspacing="0" cellpadding="0">
  <form name="form1" method="post" action="?type2=saveedit"><tr>
    <td width="183">
    </td>
    <td width="595">请牢记你的帐号和密码，如果遗忘，用你只能打开数据库查看了</td>
  </tr>
  <tr>
    <td><div align="right">用户名：</div></td>
    <td><input name="username" type="text" id="username" value="<%=rs("username")%>"></td>
  </tr>
  <tr>
    <td><div align="right">密码一：</div></td>
    <td><input name="password" type="text" id="password" value="<%=rs("password")%>"></td>
  </tr>
  <tr>
    <td><div align="right">密码二：</div></td>
    <td><input name="password2" type="text" id="password2" value="<%=rs("password2")%>"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input type="submit" name="Submit" value="提交">
      <input type="reset" name="Submit" value="重置"></td>
  </tr></form>
</table>

 
<%end sub
  sub saveedit
  set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from admin",conn,1,3
		rs("username")=request("username")
		rs("password")=request("password")
		rs("password2")=request("password2")
	Rs.Update
	Response.redirect "adminedit.asp"
	end sub%>
</td>
  </tr>
</table></BODY></HTML>