📄 sf.asp
字号:
</td></tr></table></center></div>
<%End If%>
<html><head><script type="text/javascript" SRC="tip.js"></script><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0"><meta name="ProgId" content="FrontPage.Editor.Document">
<style>
<!--
#tipBox {position: absolute;
width: 160px;
z-index: 100;
border: 1pt black solid;
font-family:宋体;
font-size: 9pt;
background: ffffdf;
visibility: hidden}
a:link {color:#000000;text-decoration: none}
a:visited {color:#000000;text-decoration: none}
a:active {color:#000000;text-decoration: none}
a:hover {color:red;text-decoration: none}
-->
</style>
<div ID="tipBox" style="width: 142; height: 8"></div>
<title>用户管理</title></head><body style="font-family: 宋体; font-size: 10.5pt">
<div align="center"><center><table border="1" width="600" bordercolor="#988CD0" cellspacing="0" cellpadding="3" bgcolor="#988CD0">
<tr><td width="100%"><p align="center"><font color="#FFFFFF">用 户 管 理</font></td></tr></table></center></div>
<div align="center">
<table border="0" borderColorDark="#988cd0" borderColorLight="#988cd0" cellPadding="2" cellSpacing="0" height="13" width="600">
<tbody>
<tr bgColor="#988cd8">
<td align="middle" style="font-family: 宋体; font-size: 10.5pt">
<p align="center"> <a href=exit.asp>退出管理系统</a></font></p>
</td>
</tr>
</tbody>
</table>
</div>
<div align="center">
<center>
<table border="1" borderColorDark="#a08cd8" borderColorLight="#a08cd8" cellSpacing="0" height="13" width="601" style="font-family: 宋体; font-size: 9pt">
<tbody>
<tr>
<td bgColor="#988cd0" colSpan="9" height="15" width="594">
<p align="center"><font color="#ffffff"><strong>删除用户窗口</strong></font></p>
</td>
</tr>
<tr>
<td align="middle" height="12" width="84"><font color="#000000"><strong>用户名</strong></font></td>
<td align="middle" height="12" width="81"><font color="#000000"><strong>密码</strong></font></td>
<td align="middle" height="12" width="28"><font color="#000000"><strong>性别</strong></font></td>
<td align="middle" height="12" width="33"><font color="#000000"><strong>年龄</strong></font></td>
<td align="middle" height="12" width="61"><font color="#000000"><strong>ICQ</strong></font></td>
<td align="middle" height="12" width="95"><font color="#000000"><strong>登记IP</strong></font></td>
<td align="middle" height="12" width="94"><font color="#000000"><strong>登记时间</strong></font></td>
<td align="middle" height="12" width="45"><font color="#000000"><strong>修改</strong></font></td>
<td align="middle" height="12" width="42"><font color="#000000"><strong>删除</strong></font></td>
</tr>
<%do while not (list.eof or err)%>
<tr>
<td align="middle" width="84" align="center"><%'用户的名称和ID号码！%>
<a href=lookuser.asp?ID=<%=list("ID")%> onMouseOver="this._tip = '<%=list("name")%> <font color = blue><%=list("sex")%></font> <%=list("age")%>岁<br>生日:<%=list("years")%>年<%=list("mons")%>月<%=list("days")%>日<br>星座:<%=list("xingzuo")%><br><font color = 8080FF>更详细信息,请</font><font color=red>点击</font><font color = 8080FF>进入</font>'"><font class=pt9 color=#0000FF><%=list("name")%></font></a>
<%IF list("photo")<>"" Then%>
<img src =photo.gif onMouseOver="this._tip = '<font color=red>有照片呀！</font><font color=000000>大小:</font><font=blue>103582</font><font color=000000> byte<br>用56K modem下载需要</font><font color=red>20.72</font><font color=000000>秒</font>'">
<%End If%>
</td>
<td align="middle" width="81" align="center"><%=list("password") %></td>
<td align="middle" width="28" align="center"><%=list("sex") %></td>
<td align="middle" width="33" align="center"><%=list("age") %>
<%If list("icq_img")<>"" and list("icqnum")<>"" Then%>
<% If List("icq_img")="icq.gif" Then%>
<td align="middle" height="12" width="61">
<img src =icq.gif onMouseOver="this._tip = '<img src=oicq.gif><font color=blue> Icq: </font><font color=red><%=list("icqnum")%></font>'"><span><font class=pt9 color=#000000></font><%=list("icqnum")%></span>
</td> <%Else%>
<td align="middle" height="12" width="61">
<img src =oicq.gif onMouseOver="this._tip = '<img src=oicq.gif><font color=blue> Oicq: </font><font color=red><%=list("icqnum")%></font>'"><span><font class=pt9 color=#000000></font><%=list("icqnum")%></span>
</td> <%End If
End If%>
</td>
<td align="middle" width="95" align="center"><%=list("ip") %></td>
<td align="middle" width="94" align="center"><%=list("times") %></td>
<form action="sf.asp" method="post" target="_blank">
<input name="keys" type="hidden" value="EditUser">
<input name="EditUserID" type="hidden" value="<%=list("ID")%>">
<td align="middle" height="11" width="45">
<input name="B1" type="submit" value="修改">
</td></form>
<form action="sf.asp" method="post">
<input name="keys" type="hidden" value="DeleteID">
<input name="UserID" type="hidden" value="<%=list("ID")%>">
<td align="middle" height="11" width="42">
<input name="b1" type="submit" value="删除">
</td></form>
</tr>
<% list.movenext
loop
%>
</tbody>
</table>
</center>
</div><hr width="600" color="#988CD0">
<center>【<a href="javascript:history.go(-1);">回上一页</a>】</center>
</body></html>
<%'--------------------------------输出结束------------------------------------------------
Response.Write copyright
end sub
Sub IsAdminEditUser()
chk_admin_password
EditUserID=Request.Form("EditUserID")
If Session("Sysop")=True Then
If EditUserID<>"" Then
strSQL="SELECT * FROM List WHERE"
strSQL= strSQL & " ID LIKE '"+EditUserID+"'"
strSQL= strSQL & " Order by ID DESC"
'Response.Write strSQL
set list=server.createobject("adodb.recordset")
list.open strSQL,conntmp,adOpenKeySet,adLockPessimistic
'数据错误处理
if list.eof and list.bof then
Response.WRite "错误！没有当前用户！"
Response.End
End if
action = Request.Form("action")
If action="xiu" Then
Response.Write "修改记录"
dim name,password,sex,mail,url,icq_img,icqnum,age,years,mons,days,likes,address,photo,doc,mode,ip,counter,n,y,r,s,f,m,sj,times,xingzuo
name = trim(Request.Form("name")) '姓名
password = trim(Request.Form("password")) '密码
sex = trim(Request.Form("sex")) '性别
mail = trim(Request.Form("mail")) 'E-Mail
URL = trim(Request.Form("URL")) '网站链接
icq_img = trim(Request.Form("icq_img")) '传呼机图片
icqnum = trim(Request.Form("icqnum")) '传呼机号码
AGE = trim(Request.Form("age")) '年龄
years = trim(Request.Form("years")) '生日的年
mons = trim(Request.Form("mons")) '生日的月
days = trim(Request.Form("days")) '生日的日
likes = trim(Request.Form("likes")) '爱好
address = trim(Request.Form("address")) '居住地
photo = trim(Request.Form("photo")) '相片
doc = trim(Request.Form("doc")) '留言
mode = trim(Request.Form("mode")) '交友方式
ip = "不显示IP" 'Request.ServerVariables("REMOTE_ADDR") '使用ServerVariables读取用户的IP地址，将用户IP放如IP变量中
counter = "0"
n=Year(date()) '取得函数Year年的年份放入n的变量中
y=Month(date()) '取的函数Month月的月份放入y的变量中
r=Day(date()) '取的函数Day天的天数放入r的变量中
s=Hour(time()) '取得函数Hour小时的小时数放入s变量中
f=Minute(time()) '取的函数Minute分的分钟数值放入f变量中
m=Second(time()) '取的函数Second秒的秒数放入m变量中
if len(y)=1 then y="0" & y '如果y的数值等于一位数的话，则y等于0+Y变量，也就是说，把单数前都加一个0，比如01 or 02 or 03
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "年" & y & "月" & r & "日" & " " & weekdayname(weekday(date())) & " " & s & ":" & f & ":" & m
'sj 等于 X年X月X日空格 星期几 几点几分几秒
'WeekDay是提供一个1与7之间的数值，也就是星期几
times = sj
'#####################星座判断#########################
set list=server.createobject("ADODB.RECORDSET")
list.open strSQL,conntmp,3,2
list("name")=name
list("password")=password
list("sex")=sex
list("mail")=mail
list("url")=url
list("icqnum")=icqnum
list("icq_img")=icq_img
age=n-years
list("age")=age '年龄需要根据生日修改，而且需要制作星座代码
list("years")=years
list("mons")=mons
list("days")=days
list("likes")=likes
list("address")=address
'list("photo")=photo
list("doc")=doc
list("mode")=mode
'list("ip")=ip
'list("times")=times
list.update
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>个人信息</title><style>
<!--
#tipBox {position: absolute;
width: 160px;
z-index: 100;
border: 1pt black solid;
font-family:宋体;
font-size: 9pt;
background: ffffdf;
visibility: hidden}
a:link {color:#000000;text-decoration: none}
a:visited {color:#000000;text-decoration: none}
a:active {color:#000000;text-decoration: none}
a:hover {color:red;text-decoration: none}
-->
</style>
</head>
<body>
<form method="POST" action="sf.asp" >
<div align="center">
<center>
<table border="1" width="600" cellspacing="0" cellpadding="3" bgcolor="#998CD2" bordercolor="#988CD8">
<tr>
<td width="100%">
<p align="center">您的信息</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" width="600" bgcolor="#F8EBD1" cellspacing="0" cellpadding="3" bordercolor="#988CD8" style="font-family: 宋体; font-size: 9pt" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="66" align="center">⊙-朋友列表</td>
<td width="66" align="center">⊙-朋友加入</td>
<td width="66" align="center">⊙-修改资料</td>
<td width="66" align="center">⊙-管理入口</td>
<td width="66" align="center">⊙-高级搜索</td>
<td width="220" align="center"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" width="600" cellspacing="0" style="font-family: 宋体; font-size: 9pt" cellpadding="3" bordercolor="#988CD0" height="272">
<tr>
<td width="590" bgcolor="#988CD0" colspan="2" height="12">这是您的修改的结果</td>
</tr>
<tr>
<td width="590" colspan="2" bgcolor="#EEF1F7" height="12">photo...</td>
</tr>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">姓名：</td>
<td width="433" height="12"><%=list("name")%></td>
</tr>
<tr>
<td width="149" align="right" bgcolor="#CCCCFF" height="12">性别：</td>
<td width="433" height="12"><%=list("sex")%></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -