📄 admin_server.asp

📁 asp+sql软件系统
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="CheckAdmin.asp"-->
<%
ErrTitle = "管理下载服务器出错："
SucTitle = "管理下载服务器成功："
%>

<!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>
<% 
Dim Sid
Sid=Request.QueryString("Sid")
Dim Sname,Surl
Sname=Trim(Request.Form("Sname"))
Surl=Trim(Request.Form("Surl"))

Select Case Action
	Case "Add"
		Call Add()
	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 Serverid,Servername,Serverurl FROM [Server]")
%>
<table width="95%" border="1" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td colspan="3">管理下载服务器</td>
  </tr>
  <tr>
    <td>服务器名称</td>
    <td>服务器地址</td>
    <td>管理</td>
  </tr>
<%If Rs.Eof Then%>
  <tr>
    <td colspan="3">暂无任何服务器,<a href="Admin_Server.asp?Action=Add">添加服务器</a></td>
  </tr>
<%Else
While Not Rs.EOF%>
  <tr>
    <td><%=Rs(1)%></td>
    <td><%=Rs(2)%></td>
    <td><a href="Admin_Server.asp?Action=Add">添加</a> | <a href="Admin_Server.asp?Action=Edit&Sid=<%=Rs(0)%>">修改</a> | <a href="Admin_Server.asp?Action=Del&Sid=<%=Rs(0)%>">删除</a></td>
  </tr>
<%
Rs.MoveNext
Wend

End If%>
</table>
<%
Rs.Close
Set Rs=Nothing
Call CloseDatabase()
End Sub

Sub Add()
%>
<form name="form1" method="post" action="Admin_Server.asp?Action=SaveAdd">
<table width="50%" border="1" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td colspan="2">添加服务器</td>
  </tr>
  <tr>
    <td width="25%" align="right">名称</td>
    <td width="75%"><input name="Sname" type="text" id="Sname"></td>
  </tr>
  <tr>
    <td width="25%" align="right">地址</td>
    <td width="75%"><input name="Surl" type="text" id="Surl"></td>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="submit" name="Submit" value="添加"></td>
    </tr>
</table>
</form>
<%End Sub

Sub SaveAdd()
If Sname="" or Surl="" Then
	ErrInfo = ErrInfo&"<li>名称与地址不能为空。</li>"
	FoundErr=True
End If

If FoundErr Then
	Call ErrorMsg()
Else
    Call OpenDatabase()
	Conn.Execute("INSERT INTO [Server](Servername,Serverurl)VALUES('"&Sname&"','"&Surl&"')")
    Call CloseDatabase()
    Call SucMsg("<li>添加服务器成功！</li>","Admin_Server.asp")
End If
End Sub

Sub Edit()
Call OpenDatabase()
Set Rs=Conn.Execute("SELECT Servername,Serverurl FROM [Server] WHERE Serverid="&CInt(Sid)&"")
%>
<form name="form1" method="post" action="Admin_Server.asp?Action=SaveEdit&Sid=<%=Sid%>">
<table width="50%" border="1" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td colspan="2">修改服务器</td>
  </tr>
  <tr>
    <td width="25%" align="right">名称</td>
    <td width="75%"><input name="Sname" type="text" id="Sname" value="<%=Rs(0)%>"></td>
  </tr>
  <tr>
    <td width="25%" align="right">地址</td>
    <td width="75%"><input name="Surl" type="text" id="Surl" value="<%=Rs(1)%>"></td>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="submit" name="Submit" value="修改"></td>
    </tr>
</table>
</form>
<%
Rs.Close
Set Rs=Nothing
Call CloseDatabase()
End Sub

Sub SaveEdit()
If Sname="" or Surl="" Then
	ErrInfo = ErrInfo&"<li>名称与地址不能为空。</li>"
	FoundErr=True
End If

If FoundErr Then
	Call ErrorMsg()
Else
    Call OpenDatabase()
	Conn.Execute("UPDATE [Server] SET Servername='"&Sname&"',Serverurl='"&Surl&"' WHERE Serverid="&CInt(Sid)&"")
    Call CloseDatabase()
    Call SucMsg("<li>修改服务器成功！</li>","Admin_Server.asp")
End If
End Sub

Sub Del()
Call OpenDatabase()
	Conn.Execute("DELETE FROM [Server] WHERE Serverid="&CInt(Sid)&"")
	Call SucMsg("<li>删除服务器成功！</li>","Admin_Server.asp")
Call CloseDatabase()
End Sub

%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -