显示页面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>