admin.asp

来自「支持IE 手机同步访问的WAP论坛社区程序 很不错」· ASP 代码 · 共 27 行

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
FangWen.FangWen()
FangWen.Admin_Admin()
Set FangWen=Nothing
Call H_Title("管理员管理")
Private c,s,Cn1
Set c=New xkon_Response
Set s=New xkon_Request
	c.Writeln("<input type=""button"" value=""增加管理员"" onClick=""location.href='Admin_CaoZuo.Asp?l=j';""/>")
	Call OpenData()
		Set Cn1=Server.CreateObject("ADODB.RecordSet")
		Cn1.Open "SELECT * FROM Admin ORDER BY ID",Conn,1,1
		c.Write("<form method=""post"" action=""Admin.Asp""><table width=100% ><tr><td>序号</td><td>账号</td><td>密码</td><td></td><td></td></tr>")
		Do While(Not Cn1.Eof)
			c.Write("<tr><td>"&Cn1("ID")&"</td><td>"&Cn1("ZhangHao")&"</td><td>"&Cn1("MiMa")&"</td><td>"&"<a href=""Admin_CaoZuo.Asp?l=b&amp;id="&Cn1("id")&""">编辑</a></td><td><a href=""Admin_Caozuo.Asp?l=s&amp;id="&Cn1("ID")&""" onClick=""if(confirm('确认删除')){return true;}else{return false;}"">删除</a></td></tr>")
			Cn1.MoveNext
		Loop
		Cn1.Close
		Set Cn1=Nothing
		c.Write("<tr><td><div id=""a1""></div></td><td><div id=""a2""></div></td><td><div id=""a3""></div></td><td><div id=""a4""></div></td><td><div id=""a5""></div></td><td><div id=""a6""></div></td><td><div id=""a7""></div></td><td><div id=""a8""></div></td></tr></table></form>")
	Call CloseData()
	Call H_End()
Set c=Nothing
Set s=Nothing
%>