📄 admin_download_url.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="CheckAdmin.asp"-->
<%
ErrTitle = "管理下载地址出错："
SucTitle = "管理下载地址成功："
Dim Did,DRs,DUid,i
Did=CInt(Request.QueryString("Did"))
DUid=CInt(Request.QueryString("DUid"))
i=1
Dim Serverid,Urlname
Serverid=Trim(Request.Form("Serverid"))
Urlname=Trim(Request.Form("Urlname"))
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理下载地址</title>
</head>
<body>
<%
Select Case Action
Case "SaveAdd"
Call SaveAdd()
Case "Edit"
Call Edit()
Case "SaveEdit"
Call SaveEdit()
Case "Del"
Call Del()
Case Else
Call Main()
End Select
Sub Main()
Call OpenDatabase()
Set Rs=Conn.Execute("SELECT DownloadUrl.DUid,DownloadUrl.Durl,Server.Servername FROM [DownloadUrl] INNER JOIN [Server] ON DownloadUrl.Serverid=Server.Serverid WHERE DownloadUrl.Did="&Did&"")
%>
<form name="form1" method="post" action="?Action=SaveAdd&Did=<%=Did%>">
<table width="75%" border="1" align="center" cellpadding="2" cellspacing="0">
<tr>
<td colspan="2">管理下载地址</td>
</tr>
<tr>
<td width="34%" align="right">下载名称</td>
<td width="66%"><%
Set DRs=Conn.Execute("SELECT Dname FROM [Download] WHERE Did="&Did&"")
Response.Write (DRs(0))
DRs.Close
Set DRs=Nothing%></td>
</tr>
<%
If Not(Rs.Eof) Then
Conn.Execute("UPDATE [Download] SET Flag=1 WHERE Did="&Did&"")
While Not Rs.EOF%>
<tr>
<td align="right">下载地址<%=i%></td>
<td><%=Rs(2)&":"&Rs(1)%> (<a href="Admin_Download_Url.asp?Action=Edit&Did=<%=Did%>&DUid=<%=Rs(0)%>">修改</a>|<a href="Admin_Download_Url.asp?Action=Del&Did=<%=Did%>&DUid=<%=Rs(0)%>">删除</a>)</td>
</tr>
<%i=i+1
Rs.MoveNext
Wend
Else
Conn.Execute("UPDATE [Download] SET Flag=2 WHERE Did="&Did&"")%>
<tr align="center">
<td colspan="2">暂无下载地址</td>
</tr>
<%End If%>
<tr>
<td align="right">添加新地址</td>
<td><select name="Serverid">
<%Set DRs=Conn.Execute("SELECT Serverid,Servername FROM [Server]")
While Not DRs.EOF%>
<option value="<%=DRs(0)%>"><%=DRs(1)%></option>
<%DRs.MoveNext
Wend
DRs.Close
Set DRs=Nothing%>
</select>
<input type="text" name="Urlname" size="40"></td>
</tr>
<tr align="center">
<td colspan="2"><input name="Submit" type="submit" value="添加"></td>
</tr>
</table>
</form>
<%
Rs.Close
Set Rs=Nothing
Call CloseDatabase()
End Sub
Sub SaveAdd()
If Serverid="" Or Urlname="" Then
ErrInfo = ErrInfo&"<li>请填写地址。</li>"
FoundErr=True
End If
If FoundErr Then
Call ErrorMsg()
Else
Call OpenDatabase()
Conn.Execute("INSERT INTO [DownloadUrl](Did,Serverid,Durl)VALUES("&Did&","&Serverid&",'"&Urlname&"')")
Call CloseDatabase()
Call SucMsg("<li>添加地址成功！</li>","Admin_Download_Url.asp?Did="&Did&"")
End If
End Sub
Sub Edit()
Call OpenDatabase()
Set Rs=Conn.Execute("SELECT Serverid,Durl FROM [DownloadUrl] WHERE DUid="&DUid&"")
%>
<form name="form1" method="post" action="?Action=SaveEdit&Did=<%=Did%>&DUid=<%=DUid%>">
<table width="75%" border="1" align="center" cellpadding="2" cellspacing="0">
<tr>
<td colspan="2">修改下载地址</td>
</tr>
<tr>
<td width="34%" align="right">添加新地址</td>
<td width="66%">
<select name="Serverid">
<%Set DRs=Conn.Execute("SELECT Serverid,Servername FROM [Server]")
While Not DRs.EOF%>
<option value="<%=DRs(0)%>" <%If Int(DRs(0))=Int(DUid) Then Response.Write ("selected")%>><%=DRs(1)%></option>
<%DRs.MoveNext
Wend
DRs.Close
Set DRs=Nothing
%>
</select>
<input name="Urlname" type="text" size="40" value="<%=Rs(1)%>"></td>
</tr>
<tr align="center">
<td colspan="2"><input name="Submit" type="submit" value="修改"></td>
</tr>
</table>
</form>
<%
Rs.Close
Set Rs=Nothing
Call CloseDatabase()
End Sub
Sub SaveEdit()
If Serverid="" Or Urlname="" Then
ErrInfo = ErrInfo&"<li>请填写地址。</li>"
FoundErr=True
End If
If FoundErr Then
Call ErrorMsg()
Else
Call OpenDatabase()
Conn.Execute("UPDATE [DownloadUrl] SET Serverid="&Serverid&",Durl='"&Urlname&"' WHERE DUid="&DUid&"")
Call CloseDatabase()
Call SucMsg("<li>修改地址成功！</li>","Admin_Download_Url.asp?Did="&Did&"")
End If
End Sub
Sub Del()
Call OpenDatabase()
Conn.Execute("DELETE FROM [DownloadUrl] WHERE DUid="&DUid&"")
Call SucMsg("<li>删除地址成功！</li>","Admin_Download_Url.asp?Did="&Did&"")
Call CloseDatabase()
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -