📄 userinfo.asp
字号:
<!--#include file="articleconn.asp"-->
<% if request.cookies("userid")="" or request.cookies("password")="" then
%>
<SCRIPT>
function formcheck()
{
if (loginform.userid.value == "")
{
alert('请输入用户名。');
loginform.userid.focus();
return false;
}
if (loginform.password.value == "")
{
alert('请输入密码。');
loginform.password.focus();
return false;
}
if (loginform.validateCode.value=="")
{
alert('请输入附加码，附加码就在输入框右边。');
loginform.validateCode.focus();
return false;
}
return true;
}
</SCRIPT>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户登录</title>
<style><!--body, td, p, li, input, select{FONT-SIZE: 9pt; font-family:宋体; COLOR: #ffffff; font-family:Arial}
.fontshadow { width:100%; filter:dropshadow(color=#ffffff,offx=1,offy=1);}
A:link{COLOR: #ffffff; text-decoration: none;}
A:visited{COLOR: #ffffff; text-decoration: none;}
A:Active{color : #ffffff; TEXT-DECORATION: none;}
A:hover{color: #ffffff; TEXT-DECORATION: none;}
A.a1:link{COLOR: #000000; TEXT-DECORATION: none;}
A.a1:visited{COLOR: #000000; TEXT-DECORATION: none;}
A.a1:Active{color : #000000; TEXT-DECORATION: none;}
A.a1:hover{color : #000000; TEXT-DECORATION: none;}
A.a2:link{COLOR: #1B409B; TEXT-DECORATION: none;}
A.a2:visited{COLOR: #1B409B; TEXT-DECORATION: none;}
A.a2:Active{color : #1B409B; TEXT-DECORATION: none;}
A.a2:A:hover{color: #1B409B;T EXT-DECORATION: none;}
.L17{line-height:170%}
.L18{line-height:180%}
.L20{line-height:200%}
--></style>
</head>
<body bgcolor="#0F0DAE" text="0" leftmargin="0">
<table border="0" cellspacing="0" align=center style="border-collapse: collapse" bordercolor="#111111" width="359" id="AutoNumber1" cellpadding="0">
<TR>
<TD align="center" class="title">
<img border="0" src="images/login-top.jpg" width="359" height="85"></TD>
</TR>
<TR>
<TD valign="top" background="images/login-bg.jpg" > <table width="90%" border="0" align="center">
<FORM method=post name=loginform action="userpass.asp"
onsubmit="if (!formcheck()) return false;">
<TBODY>
<TR>
<TD align="center" height=35><FONT
color=#3b591b class="fontshadow"></FONT></TD>
<TD align="left" height=35><FONT
color=#3b591b class="fontshadow"><b>用 户 登 录</b></FONT></TD>
</TR>
<TR>
<TD align=right height=25 width="40%"><FONT
color=#3b591b class="fontshadow">用户名：</FONT></TD>
<TD width="65%"><INPUT name=userid
onfocus=javascript:this.select(); style="border: 1px solid #3655AA; font-size:9pt;color:#000000"" size=14></TD></TR>
<TR>
<TD align=right height=13 width="40%"><FONT
color=#3b591b class="fontshadow">密 码：</FONT></TD>
<TD><INPUT name=password
onfocus=javascript:this.select(); style="border: 1px solid #3655AA; font-size:9pt;color:#000000"" size=14 type=password></TD></TR>
<TR>
<TD align=right height=12 width="40%"><FONT
color=#3b591b class="fontshadow">附加码：</FONT></TD>
<TD><INPUT style="border: 1px solid #3655AA; font-size:9pt;color:#000000"" maxLength=4 name=validateCode
onfocus=javascript:this.select(); size=8>
<script src="verify.asp"></script>
</TD></TR>
<TR>
<TD align=middle colSpan=2 height=25><input type="image" name="Submit" src="images/index-denglu.gif" width="62" height="18">  
<a href="reguser.asp" target=_blank>
<img border="0" src="images/index-zhuce.gif" width="62" height="18"></a></TD></TR> </form>
</table></TD>
</TR>
<tr>
<td><img border="0" src="images/login-bottom.gif" width="359" height="28"></td>
</tr>
</TABLE>
</body>
</html>
<%response.end
end if%>
<%
const MaxPerPage=10
dim totalPut,infoID
dim CurrentPage
dim i,j
if isempty(trim(request("page"))) then
currentPage=cint(trim(request("page")))
else
currentPage=1
end if
%>
<html>
<head>
<LINK href="css/style.css" type=text/css rel=stylesheet>
<title>用户《 <%=request.cookies("userid")%> 》短消息列表</title>
</head>
<SCRIPT language=javascript>
<!--
var state=0
window.resizeTo(500,450);
window.moveTo((screen.width-500)/2, (screen.height-500)/2);
//-->
</SCRIPT>
<body bgcolor=ffa000 oncontextmenu=self.event.returnValue=false onselectstart="return false">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="35" width="100%" bgcolor="#cc0003" align="center"><b><font color="#ffffff">用 户《 <%=request.cookies("userid")%> 》</font> <font color=fff000>的 短 消 息 列 表</font></b></td>
</tr></table>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<form action="userinfo.asp" name="msg" method="post">
<tr align="center">
<td width="10%" bgcolor=66ccff>状态</td>
<td width="7%" bgcolor=66ccff>选择</td>
<td width="18%" bgcolor=66ccff>发消息人</td>
<td width="36%" bgcolor=66ccff>消息主题</td>
<td width="29%" bgcolor=66ccff>发送日期</td>
</tr>
<%
dim userinfoSQL,userinfoRS,TotalPages,userID
userID=trim(request("userID"))
infoID=request("infoID")
'删除信息
if infoID<>"" and userID<>"" then
conn.execute "delete from UserMsg where UserId="&userID&" and MsgId in ("&infoID&")"
response.Redirect "userinfo.asp?userID="&userID&""
response.End
end if
set userinfoRS=server.createobject("adodb.recordset")
userinfoSQL="select * from UserMsg where UserId="&userID&" order by sendtime DESC"
userinfoRS.open userinfoSQL,conn,1,1
if userinfoRS.eof and userinfoRS.bof then
response.write "<tr align='center'><td colspan='5'>对不起，您暂无短信息！</td></tr></table>"
TotalPages=0
else
totalPut=userinfoRS.recordcount
TotalPages=int(totalPut\MaxPerPage)+1
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"userinfo.asp"
showpage1 totalput,MaxPerPage,"userinfo.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
userinfoRS.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=userinfoRS.bookmark
showContent
showpage totalput,MaxPerPage,"userinfo.asp"
showpage1 totalput,MaxPerPage,"userinfo.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"userinfo.asp"
showpage1 totalput,MaxPerPage,"userinfo.asp"
end if
end if
end if
sub showContent
i=0
do while not userinfoRS.eof%>
<tr align="center">
<td bgcolor=66ccff><% if not userinfoRS("readle") then
response.write("<img src='admin/images/new.gif'>")
end if%></td>
<td bgcolor=66ccff><input type="checkbox" name="infoID" id="infoID" value="<%=userinfoRS("MsgId")%>"></td>
<td bgcolor=66ccff><%=userinfoRS("sendman")%></td>
<td bgcolor=66ccff><a href="#" onClick="window.open('detailMSG.asp?MsgId=<%=userinfoRS("MsgId")%>&userID=<%=userinfoRS("userID")%>','adminMsg','scrollbars=no,resizable=no,width=460,height=380,menubar=no,top=168,left=168')"><%=userinfoRS("infoName")%></a></td>
<td bgcolor=66ccff><%=userinfoRS("sendtime")%></td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
userinfoRS.movenext
loop
%>
<tr align="center">
<td colspan="5" bgcolor=66ccff><input type="hidden" name="userID" value="<%=userID%>">
选中所显示信息<input type="checkbox" name="chkall" id="chkall" value="" onClick="CheckAll(this.form);">
<input type="submit" name="submit0" class="button1" id="submit0" style="height:17px;font-size:9pt;" value="删 除">
</td></tr>
</form>
<script language="JavaScript" type="text/javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
Response.Write "<table border=""0"" cellspacing=""1"" height=""25"" bgcolor=#fff000 width=""100%"" align=center>"
response.write "<form action="&filename&" method='post' name='tiaozhuan1' target='_self'><tr><td width=""30%"" align=center>"
Response.Write " 您共有信息：<font color=""red"">"&totalnumber&"</font> 条 系统只保留你的10条短消息"
end function
function showpage1(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
if CurrentPage<2 then
else
end if
if n-currentpage<1 then
else
end if
Response.Write "</td></tr></form></table>"
end function
userinfoRS.close
set userinfoRS=nothing
set conn=nothing
%>
</table>
</body>
</html>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -