📄 viewuser.asp
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="Language.asp" -->
<%
Call loaderror()
Call showwebdata()
Call Language_var(Language,"viewuser")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<link rel="stylesheet" href="images/styles.css" type="text/css">
<title><%=webname%>|</title>
<SCRIPT LANGUAGE="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;
}
}
function check()
{
if (isNaN(go2to.page.value))
alert("<%=Language_viewuser(19)%>");
else if (go2to.page.value=="")
{
alert("<%=Language_viewuser(20)%>");
}
else
go2to.submit();
}
//-->
</SCRIPT>
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf" text="#336699">
<!--#Include File="head.asp" -->
<center>
<br>
<form name="searchuser" method="post" action="viewuser.asp">
<table border="0" cellspacing="0" cellpadding="0" bgcolor="#000000" width="513" height="28" bordercolor="#000000" background="images/greystrip.gIf">
<tr>
<td width="499" height="1" bgcolor="#7C96B8">
<div align="center"><font color="#FFFFFF"><%=Language_viewuser(0)%>
<input type="text" name="key" maxlength="60" class="bk" style="border:1px #7C96B8 solid; color:#336699"><input type="Submit" name="Submit1" value="<%=Language_viewuser(1)%>" class="Tips_bo" class="bk"></font></div>
</td>
</tr>
</table>
</Form><br><br>
<%
If Request.Form("delmail")<>"" Then
'删除邮件
Call delmail()
ElseIf Request.QueryString("addmail")<>"" Then
'显示填加邮件
Call addmail()
ElseIf Request.Form("savemail")<>"" Then
'保存填加邮件
Call savemail()
Call main()
Else
'显示邮件列表
Call main()
End If
%>
<%
'删除邮件
Sub delmail()
delid=replace(Request.Form("id"),"'","")
conn.Execute("delete * from mail where id in ("&delid&")")
Response.Redirect "viewuser.asp"
Response.End
End Sub
'填加邮件
Sub savemail()
mail = Request.Form("mail")
'判断邮件格式是否正确
If IsValidEmail(mail)<>TRUE Then
errortext=Language_viewuser(17)
Call showerror1()
End If
'判断邮件是否已经在数据库中
If IsdyEmail(mail) Then
errortext=Language_viewuser(18)
Call showerror1()
End If
conn.execute "insert inTo mail (dytime,mail) values ('"&now()&"','"&mail&"')"
End Sub
'显示邮件列表
Sub main()
Set rs=Server.Createobject("adodb.recordset")
If NOT isempty(Request("page")) Then
pagecount=cint(Request("page"))
Else
pagecount=1
End If
key=Request.Form("key")
If key="" Then
sql="select * from mail order by id desc"
Else
sql="select * from mail where mail like '%"&key&"%' order by id desc"
End If
rs.open sql,conn,1,1
If rs.eof AND rs.bof Then
Response.Write"<BR>=== "&Language_viewuser(24)&" ===<BR><BR><a href=viewuser.asp?addmail=dg><font color=#336699>"&Language_viewuser(15)&"</font></a>"
Response.End
End If
rs.pagesize=20
If pagecount>rs.pagecount or pagecount<=0 Then
pagecount=1
End If
rs.AbsolutePage=pagecount %>
<table border="0" cellpadding="0" cellspacing="0" width="580" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" class=ver>
<tr>
<% If rs.pagecount=1 Then %>
<td height="25" colspan="4" class="ver" width="684"> <font class=ver><%=Language_viewuser(2)%>[<font color="#ff0000"><%=rs.recordcount%></font>]<%=Language_viewuser(3)%>
<%=Language_viewuser(4)%>[<font color="red">1～<%=rs.recordcount%></font>] </font><a href="viewuser.asp?addmail=dg"><font color="#336699"><%=Language_viewuser(15)%></font></a></td>
</tr>
<tr>
<td height="7" colspan="4" width="684" ></td>
</tr>
<%Else%>
<tr>
<td height="25" colspan="4" width="684" ><font class=ver> <%
page_start=(pagecount-1)*rs.pagesize
If pagecount=1 Then page_start=1
page_End=rs.pagesize*pagecount
If pagecount*rs.pagesize=>rs.recordcount Then page_End=rs.recordcount End If%>
<%=Language_viewuser(2)%>[<font color="#ff0000"><%=rs.recordcount%></font>]<%=Language_viewuser(3)%> <%=Language_viewuser(4)%>[<font color="red"><%=page_start%>～<%=page_End%></font>]</font> <a href="viewuser.asp?addmail=dg"><font color="#336699"><%=Language_viewuser(15)%></font></a></td>
</tr>
<tr>
<td height="25" colspan="4" width="684" > <% Response.Write"<Form name=go2To Form method=Post action='?key="+key+"'>"
If pagecount=1 Then
Response.Write "<font class=ver>"& Language_viewuser(5) & Language_viewuser(6) &"</font> "
Else
Response.Write "<a href=viewuser.asp?page=1&key="+key+"><font color=#336699>"&Language_viewuser(5)&"</font></a> "
Response.Write "<a href=viewuser.asp?page="+cstr(pagecount-1)+"&key="+key+"><font color=#336699>"&Language_viewuser(6)&"</font></a> "
End If
If rs.PageCount-pagecount<1 Then
Response.Write "<font class=ver>"&Language_viewuser(7) & Language_viewuser(8)&"</font>"
Else
Response.Write "<a href=viewuser.asp?page="+cstr(pagecount+1)+"&key="+key+"><font color=#336699>"&Language_viewuser(7)&"</font></a> "
Response.Write "<a href=viewuser.asp?page="+cstr(rs.PageCount)+"&key="+key+"><font color=#336699>"&Language_viewuser(8)&"</font></a>"
End If
Response.Write "<font class=ver> "&Language_viewuser(25)&"<font class=ver>"&pagecount&"</font>/"&rs.pagecount & Language_viewuser(10)&"</font>"
Response.Write "<font class=ver> "&Language_viewuser(9)&"<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18' value="&PageCount&">"&Language_viewuser(10)&"</font> "
Response.Write "<input class=butTon1 type='butTon' value='"&Language_viewuser(11)&"' onclick=check() class='Tips_bo' style='border:1px #7C96B8 solid ; font-family: 宋体; font-size: 9pt; position: relative; height: 19'>" %>
</td>
</tr>
<%End If%>
</table>
<form action="?page=<%=currentpage%>" method=post name=inbox>
<table border="1" width="581" bordercolor="#7C96B8" cellspacing="0" bordercolordark="#FFFFFF" height="9" cellpadding="0">
<tr>
<td width="51" background="images/mmTo.gIf" height="20" align="center" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative"><font color="#336699">I D</font></div></td>
<td width="237" background="images/mmTo.gIf" height="20" align="center" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative"><font color="#336699"><%=Language_viewuser(12)%></font></div></td>
<td width="132" background="images/mmTo.gIf" height="20" align="center" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative"><font color="#336699"><%=Language_viewuser(13)%></font></div></td>
<td width="54" background="images/mmTo.gIf" height="20" align="center" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative"><p align="center"><font color="#336699"><%=Language_viewuser(14)%></font></div>
</td>
</tr>
<% Do While NOT rs.eof %>
<tr>
<td height="21"> <%=rs("id")%></td>
<td height="21"> <%=rs("mail")%></td>
<td height="21"> <%=rs("dytime")%></td>
<td height="21">
<p align="center"><input type=checkbox name=id value=<%=rs("id")%>></p>
</td>
</tr>
<% i=i+1
rs.movenext
If i>=rs.PageSize Then Exit Do
Loop
%>
<tr>
<td width="569" colspan="4" height="19">
<p align="right"><a href="viewuser.asp?addmail=dg"><font color="#336699"><%=Language_viewuser(15)%></font></a> <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)"><%=Language_viewuser(16)%> <input type=Submit name=delmail class="Tips_bo" onclick="{if(confirm('<%=Language_viewuser(21)%>')){this.document.inbox.Submit();return true;}return false;}" value="<%=Language_viewuser(22)%>"> .
</td>
</tr>
</table></Form>
<% rs.close
End Sub
'显示填加邮件页面
Sub addmail()
%>
<Form name="adduser" method="post" action="viewuser.asp">
<table border="1" cellspacing="0" cellpadding="0" width="300" bordercolor="#7C96B8" bordercolordark="#FFFFFF" height="81">
<tr>
<td background="images/mmTo.gIf" height="20" bgcolor="#7C96B8">
<DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699"><%=Language_viewuser(15)%></font></div>
</td>
</tr>
<tr>
<td align="center" height="41">
<font color="#336699">
<%=Language_viewuser(3)%>:</font> <input type="text" name="mail" maxlength="50" class="bk">
</td>
</tr>
<tr>
<td align="center" height="19" background="images/mmTo.gIf" bgcolor="#7C96B8">
<input type="Submit" name="savemail" value="<%=Language_viewuser(11)%>" class="Tips_bo">
<input type="hidden" name="action" value="adduser">
</td>
</tr>
</table>
</Form>
<%End Sub%>
<br>
<br>
</center>
</body>
</html>
<%
'关闭销毁对象
Set rs=nothing
conn.close
Set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -