📄 index.asp
字号:
<td height="25"> · 管理登陆 ·</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form method="post" action="?action=logincheck" onsubmit="return Login(this);">
<tr>
<td width="80" height="30" align="center">管理员：</td>
<td><input type="text" name="Admin_User" class="input"></td>
</tr>
<tr>
<td height="30" align="center">密 码：</td>
<td><input type="password" name="Admin_Pass" class="input"></td>
</tr>
<tr>
<td height="40" colspan="2" align="center"><input type="submit" value=" 登录 " class="bmit"> <input type="reset" value=" 重置 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<br>
<br>
<br>
<%
'修改密码页面
Case "modpass"
checkadmin
%><br>
<br>
<br>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="260" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 管理员帐号修改 ·</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" bgcolor="#F3F3F3">
<form name="form2" method="post" action="?action=modpassed" onsubmit="return Modify_admin(this);">
<tr bgcolor="F3F3F3">
<td height="25" align="center" width="80">登录名：</td>
<td width="186"><input name="Admin_User" type="text" value="<% =Session("Wm_Admin") %>" maxlength="16" class="input"></td>
</tr>
<tr bgcolor="F3F3F3">
<td height="25" align="center">旧密码：</td>
<td width="186"><input name="Admin_Gps" type="password" maxlength="16" class="input"></td>
</tr>
<tr bgcolor="F3F3F3">
<td height="25" align="center">新密码：</td>
<td width="186"><input name="Admin_Nps" type="password" maxlength="16" class="input"></td>
</tr>
<tr bgcolor="F3F3F3">
<td height="25" align="center">确 认：</td>
<td width="186"><input name="Admin_Pass" type="password" maxlength="16" class="input"></td>
</tr>
<tr bgcolor="F3F3F3">
<td height="40" colspan="2" align="center"><input type="submit" value=" 修改 " class="bmit"> <input type="reset" value=" 重置 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<br>
<br>
<br>
<%
'添加作品
Case "Add"
checkadmin
%>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="768" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 添加作品 ·</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form method="post" action="?action=add">
<tr>
<td width="80">作品名称：</td>
<td><input type="text" name="Works_Name" class="input"></td>
</tr>
<tr>
<td>演示地址：</td>
<td><input type="text" name="Works_Yurl" class="input"></td>
</tr>
<tr>
<td>作品下载：</td>
<td><input type="text" name="Works_Durl" class="input"></td>
</tr>
<tr>
<td>作品大小：</td>
<td><input type="text" name="Works_Size" class="input"></td>
</tr>
<tr>
<td>是否推荐：</td>
<td><select size="1" name="Works_Hot" class="text">
<option>No</option>
<option>Hot</option>
<option>New</option>
<option>Hot-New</option>
</select></td>
</tr>
<tr>
<td valign="top">作品介绍：</td>
<td><textarea rows="14" name="Works_Info" cols="62" class="text"></textarea></td>
</tr>
<tr bgcolor="F3F3F3">
<td height="40" colspan="2" align="center"><input type="submit" value=" 添加 " class="bmit"> <input type="reset" value=" 重置 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
'修改作品
Case "modify"
checkadmin
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select * from Wm_Works where Works_Id="&Id
mRs.open Sql,conn,1,1
%><br>
<br>
<br>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="768" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 修改作品 ·</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form method="post" action="?action=Admin_modify&Works_Id=<% =mRs("Works_Id") %>">
<tr>
<td width="80">作品名称：</td>
<td><input type="text" name="Works_Name" size="20" class="input" value="<% =mRs("Works_Name") %>"></td>
</tr>
<tr>
<td>演示地址：</td>
<td><input type="text" name="Works_Yurl" class="input" value="<% =mRs("Works_Yurl") %>"></td>
</tr>
<tr>
<td>作品下载：</td>
<td><input type="text" name="Works_Durl" class="input" value="<% =mRs("Works_Durl") %>"></td>
</tr>
<tr>
<td>作品大小：</td>
<td><input type="text" name="Works_Size" class="input" value="<% =mRs("Works_Size") %>"></td>
</tr>
<tr>
<td>是否推荐：</td>
<td><select size="1" name="Works_Hot" class="text">
<option><% =mRs("Works_Hot") %></option>
<option>No</option>
<option>Hot</option>
<option>New</option>
<option>Hot-New</option>
</select></td>
</tr>
<tr>
<td valign="top">作品介绍：</td>
<td><textarea rows="14" name="Works_Info" cols="62" class="text"><% =mRs("Works_Info") %></textarea></td>
</tr>
<tr bgcolor="F3F3F3">
<td height="40" colspan="2" align="center"><input type="submit" value=" 修改 " class="bmit"> <input type="reset" value=" 重置 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
mRs.close
Set mRs=nothing
'下载调用
Case "Down"
Set mRs=server.createobject("adodb.recordset")
Sql="update Wm_Works set Works_Hit=Works_Hit+1 where Works_Id="&Id
mRs.open sql,conn,1,3
Sql="Select * from Wm_Works where Works_Id="&Id
mRs.open sql,conn,1,1
Response.redirect mRs("Works_Durl")
mRs.close
Set mRs=nothing
'列表页面调用
Case Else
Sql="select * from [Wm_Works] order by Works_Time desc"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
If mRs.bof and mRs.eof then
Response.Write"<span>没有任何记录</span>"
Response.End
Else
mRs.PageSize =10'每页记录条数
iCount=mRs.RecordCount '记录总数
iPageSize=mRs.PageSize
maxpage=mRs.PageCount
page=request("page")
If Not IsNumeric(page) or page="" then
page=1
Else
page=cint(page)
End If
If page<1 then
page=1
ElseIf page>maxpage then
page=maxpage
End If
mRs.AbsolutePage=Page
If page=maxpage then
x=iCount-(maxpage-1)*iPageSize
Else
x=iPageSize
End If
End If
for i=1 to mRs.pagesize
%>
<table border="0" width="98%" cellpadding="0" cellspacing="1" style="border-collapse: collapse" align="center">
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='';">
<td align="center" width="15">·</td>
<td><% =mRs("Works_Name") %><%
If mRs("Works_Hot")="Hot" then Response.Write "(<font color='red'> Hot </font>)"
If mRs("Works_Hot")="New" then Response.Write "(<font color='red'> New </font>)"
If mRs("Works_Hot")="Hot-New" then Response.Write "(<font color='red'> Hot </font>)(<font color='red'> New </font>)"
If Session("Wm_Admin")<>"" then
Response.Write" <a href='?action=modify&Works_Id="&mRs("Works_Id")&"' style='color:red'>修改</a>"
Response.Write" <a href='?action=del&Works_Id="&mRs("Works_Id")&"'onclick=""return Del(this);"" style='color:red'>删除</a>"
End If
%></td>
<td width="60"><a target="_blank" href="<% =mRs("Works_Yurl") %>">演示地址</a></td>
<td width="60"><a target="_blank" href="?action=Down&Works_Id=<% =mRs("Works_Id") %>">点击下载</a></td>
<td width="60" style="text-decoration:none;cursor:hand;" onclick="show('js<% Response.Write(""&CStr(i)&"") %>')">查看介绍</td>
<td width="100">大小：<% =mRs("Works_Size") %></td>
<td width="120"><% =year(mRs("Works_Time")) %>年<% =month(mRs("Works_Time")) %>月<% =day(mRs("Works_Time")) %>日</td>
<td width="80">下载：<% =mRs("Works_Hit") %></td>
</tr>
</table>
<table border="0" cellpadding="0" style="border-style:solid; border-width:1px; border-collapse: collapse;VISIBILITY: hidden; POSITION: absolute;" width="98%" bordercolor="#000000" cellspacing="5" bgcolor="#E7E3E7" name="js<% Response.Write(""&CStr(i)&"") %>" id="js<% Response.Write(""&CStr(i)&"") %>" align="center">
<tr>
<td><% =mRs("Works_Info") %></td>
</tr>
</table>
<%
mRs.movenext
If mRs.eof then exit for
next
mRs.close
Set mRs=nothing
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table border='0' style='border-collapse: collapse' width='768' align='center'>")
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><tr>")
Response.Write("<td align='center'>")
If page<=1 then
Response.Write ("首页 " )
Response.Write ("上一页 ")
Else
Response.Write("<a href=" & action & "?" & temp & "Page=1>首页</a> ")
Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</a> ")
End If
If page>=pagecount then
Response.Write ("下一页 ")
Response.Write ("尾页 ")
Else
Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</a> ")
Response.Write("<a href=" & action & "?" & temp & "Page=" & pagecount & ">尾页</a> ")
End If
Response.Write(" 页次：" & page & "/" & pageCount & "页")
Response.Write(" 共有" & iCount & "个作品")
Response.Write(" 转到" & "<input tyep=text name=page maxlength=5 value=" & page & " style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>" & "页 <input type=submit style=""font-size: 9pt"" value=GO style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>")
Response.Write("</td></tr></form>")
Response.Write("</table>")
End Sub
End Select
conn.close
Set conn=nothing
%></td>
</tr>
</table>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="778" align="center">
<tr>
<td height="1"></td>
</tr>
<tr>
<td bgcolor="#FF6600" height="5"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center">Copyright © 2007-2008<a href="http://www.wm126.com">+++:: 乌蒙design ::+++</a> All Rights Reserved<br>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -