|
#2
gqx1632007-12-16 11:30
显示页面managesp.asp的源码
<!--#include file="conn.asp" -->
<% if session("username")="" then response.Redirect("adminindex_333.asp") end if %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> <style type="text/css"> <!-- body { background-color: #9999CC; } .style2 {font-size: x-large} table { font-size: 12px; color: #000000; text-decoration: none; text-align: left; } input { background-color: #D5D5EA; } a:link { font-size: 12px; color: #000000; text-decoration: none; } a:visited { font-size: 12px; color: #000000; text-decoration: none; } a:hover { font-size: 12px; color: #FFFFFF; text-decoration: none; background-color: #316AC5; } table { font-size: 12px; color: #000000; text-decoration: none; border: thin dotted #5959AC; } td { border: thin dashed #C8C8E3; } --> </style> </head> <center> <body> <table width="1024" height="30" border="1" align="center" cellpadding="1" cellspacing="0"> <tr> <td width="905"> <font color="#FFFFFF">管理界面 :<br>姓名? 密码? 股票代码?? 手机??? 座机??? 信箱??? 地址??? 身份证?? 真实姓名? qq号? 注册日期? 留言</font></td> </tr> </table> <table width="1024" height="30" border="1" align="center" cellpadding="1" cellspacing="0"> <tr> <% '分页显示 If Len(Trim(Request("page")))=0 Then '返回目标页码的判断 page=1 Else page=CInt(Trim(Request("page"))) End If set rs=Server.CreateObject("ADODB.RecordSet") if not tsort="" then sql="select * from info order by id " else sql="select * from info order by id " end if rs.open sql,conn,1,1 rs.PageSize=50 if not rs.eof then rs.AbsolutePage=page for k=1 to rs.PageSize %> <% %><td width="1024"> <% response.Write(rs("aname")) response.Write("???") response.Write(rs("qqq")) response.Write("???") response.Write(rs("username")) response.Write("???") response.Write(rs("password")) response.Write("???") response.Write(rs("mail")) response.Write("???") response.Write(rs("sex")) response.Write("???") response.Write(rs("tel")) response.Write("???") response.Write(rs("bymail")) response.Write("???") response.Write(rs("add")) response.Write("???") response.Write(rs("sfz")) response.Write("???") response.Write(rs("ntime")) response.Write("???") response.Write(rs("remote_host")) response.Write("???") response.Write(rs("personalinfo")) response.Write("???") %> <a href="managesp.asp?delname=<%=rs("id")%>&ac=del"><font color="#FFFFFF">删除</font></a><font color="#FFFFFF"> </font> </td> </tr> <p> <% rs.movenext if rs.EOF Then Exit For next end if %> </table> <% if page <>1 then Response.Write "<a href=managesp.asp?page=1?cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">首页</a> " end if tmppage = page - 1 if tmppage <= 0 then tmppage = 1 else Response.Write"<a href=managesp.asp?page="&tmppage&"&cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">上一页</a>" end if tmppage = page + 1 if tmppage >rs.PageCount then tmppage = page else Response.Write " <a href=managesp.asp?page="&tmppage&"&cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">下一页</a> " end if if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then Response.Write "<a href=managesp.asp?page="&rs.PageCount&"&cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">尾页</a>" end if if Cstr(rs.PageCount) <> 0 then Response.Write " 第<font color='#CCCCCC'>" & page & "/"&rs.PageCount&"</font>页" end if '删除用户 ac=request.QueryString("ac") if ac="del" then id=request.QueryString("delname") set rs=server.createobject("adodb.recordset") dsql="delete * from info where id="&id&"" rs.open dsql,conn,1,2 response.Write("完成删除") rs.close set rs=nothing end if %> </p> <a href="change.asp?se=y" target="_self">退出系统</a> <% if strcomp(request.QueryString("se"),"y")=0 then session("username")="" response.Redirect("index333.asp") end if %> <!-------------> <div align="center"> <center> <table border="0" cellpadding="2" style="border-collapse: collapse" width="770" height="63"> <tr> <td width="750" bgcolor="#0092dd" height="25" colspan="2"> <p align="center"> </td> </tr> <tr> <script language=Javascript> <!-- function urlencode(str) { var ns = (navigator.appName=="Netscape") ? 1 : 0; if (ns) { return escape(str); } var ms = "%25#23 20+2B?3F<3C>3E{7B}7D[5B]5D|7C^5E~7E`60"; var msi = 0; var i,c,rs,ts ; while (msi < ms.length) { c = ms.charAt(msi); rs = ms.substring(++msi, msi +2); msi += 2; i = 0; while (true) { i = str.indexOf(c, i); if (i == -1) break; ts = str.substring(0, i); str = ts + "%" + rs + str.substring(++i, str.length); } } return str; } //--> </script> <form onsubmit="select * from user_table where name=username"> <td bgcolor="#FFCCFF" height="27" nowrap align=right width="430"> <p align="left"> </td> <td bgcolor="#FFCCFF" height="27" nowrap align=right width="320"> <p> ?站内搜索：<input name="username" size="15" style="border: 1px dotted #42A5F7; "> <select name="username"> </select> <input name="Submit" src="images/d_search.gif" type="image" value="Submit" width="37" height="21" align="absmiddle" border="0"></td> </form> </tr> <tr> <td width="430" height="5"></td> <td width="320" height="5"></td> </tr> </table> </center> </div> </body> <a href="/dmail_zc/reg333.asp" target=blank>会员区注册</a>? <a href="http://mail. target=blank>管理员邮箱注册</a> <a href="http://www. target=blank>IP手机查询</a></center> </html> |
我是个60多岁的人，喜欢网络，但就是学不进asp，这不，下载了别人的最简单的 会员注册程序，他没有搜索引擎，而我又需要一个搜索引擎，对引擎的要求是：
只要输入 注册者的用户名或手机号或qq号或email或姓名，就能调出该注册者的所有注册资料。
该数据库如下：