admin_link.asp

来自「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 378 行 · 第 1/2 页
ASP
378 行
<!--#include file="setup.asp"-->
<%
Dim keyword,readme,Tlink,strurl
Dim totalPut,totalnumber,CurrentPage,maxpagecount,maxperpage
Dim TotalPages,PageName,pagestart,pageend,pubUserName
Dim j, ii, n, face, i
NC_Admin.AdminChk = "51"
NC_Admin.Check
Newasp.admin_header
'*****************************************************************
'*  NewCloud DownLoad System Version 6.0.1
'*  File: admin_link.asp
'*  Date: 2004-5-20
'*****************************************************************
'*  Copyright 2002-2004 newasp.net - All Rights Reserved.
'*  newasp is a trademark of newasp.net
'*  HomePage: http://www.newasp.net
'*****************************************************************
Call Linkmain
Newasp.admin_footer
'NothingObject
Private Sub Linkmain()
	If Request("action") = "add" Then
		Call addlink
		ElseIf Request("action") = "edit" Then
		Call editlink
		ElseIf Request("action") = "savenew" Then
		Call savenew
		ElseIf Request("action") = "savedit" Then
		Call savedit
		ElseIf Request("action") = "del" Then
		Call del
		ElseIf Request("action") = "lock" Then
		Call locklink
		ElseIf Request("action") = "free" Then
		Call freelink
	Else
		Call linkinfo
	End If
	If Founderr = True Then
		Call NC_Admin.Error_Msg(ErrMsg)
	End If
End Sub


Private Sub addlink()
	Response.Write "<form action=""?action=savenew"" method = post>" & vbCrLf
	Response.Write "<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <th width=""100%"" colspan=2 height=25>添加友情链接 </th>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" height=25 class=forumrow>主页名称 </td>" & vbCrLf
	Response.Write " <td width=""60%"" height=25 class=forumrow> " & vbCrLf
	Response.Write " <input type=""text"" name=""name"" size=40>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" height=25 class=forumrow>连接URL </td>" & vbCrLf
	Response.Write " <td width=""60%"" class=forumrow> " & vbCrLf
	Response.Write " <input type=""text"" name=""url"" value=""http://"" size=40>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" height=25 class=forumrow>连接LOGO地址 </td>" & vbCrLf
	Response.Write " <td width=""60%"" class=forumrow> " & vbCrLf
	Response.Write " <input type=""text"" name=""logo"" value=""http://"" size=40>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" height=25 class=forumrow>简介 </td>" & vbCrLf
	Response.Write " <td width=""60%"" class=forumrow> " & vbCrLf
	Response.Write " <input type=""text"" name=""readme"" size=40>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" height=25 class=forumrow>在首页是文字连接还是LOGO连接 </td>" & vbCrLf
	Response.Write " <td width=""60%"" class=forumrow> " & vbCrLf
	Response.Write " 文字连接<input type=""radio"" name=""islogo"" value=0 checked>&nbsp;&nbsp;LOGO连接<input type=""radio"" name=""islogo"" value=1>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""15"" align=center colspan=""2"" class=forumrow> "
	Response.Write " <input type=""button"" name=""Submit1"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=button>　" & vbCrLf
	Response.Write " <input type=""submit"" name=""Submit"" class=""button"" value=""添 加"">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "</form>" & vbCrLf
End Sub


Private Sub editlink()
	Set Rs = CreateObject("adodb.recordset")
	SQL = "select * from [NC_link] where linkid=" & Request("id")
	Rs.Open SQL, Conn, 1, 1
	Response.Write "<form action=""?action=savedit"" method=post>" & vbCrLf
	Response.Write "<input type=hidden name=id value="
	Response.Write Request("id")
	Response.Write ">" & vbCrLf
	Response.Write "<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <th width=""100%"" colspan=2 height=25>编辑友情链接</th>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" class=forumrow>主页名称：</td>" & vbCrLf
	Response.Write " <td width=""60%"" class=forumrow> " & vbCrLf
	Response.Write " <input type=""text"" name=""name"" size=40 value="
	Response.Write Rs("Linkname")
	Response.Write ">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" class=forumrow>连接URL： </td>" & vbCrLf
	Response.Write " <td width=""60%"" class=forumrow> " & vbCrLf
	Response.Write " <input type=""text"" name=""url"" size=40 value="
	Response.Write Rs("Lurl")
	Response.Write ">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" class=forumrow>连接LOGO地址： </td>" & vbCrLf
	Response.Write " <td width=""60%"" class=forumrow> " & vbCrLf
	Response.Write " <input type=""text"" name=""logo"" size=40 value="""
	Response.Write Rs("logo")
	Response.Write """>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" class=forumrow>简介：</td>" & vbCrLf
	Response.Write " <td width=""60%"" class=forumrow> " & vbCrLf
	Response.Write " <input type=""text"" name=""readme"" size=40 value="
	Response.Write Rs("readme")
	Response.Write ">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""40%"" height=25 class=forumrow>在首页是文字连接还是LOGO连接 </td>" & vbCrLf
	Response.Write " <td width=""60%"" class=forumrow> " & vbCrLf
	Response.Write " 文字连接<input type=""radio"" name=""islogo"" value=0 "
	If Rs("islogo") = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">&nbsp;&nbsp;LOGO连接<input type=""radio"" name=""islogo"" value=1 "
	If Rs("islogo") = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""15"" align=center colspan=""2"" class=forumrow> " & vbCrLf
	Response.Write " <div align=""center"">"
	Response.Write " <input type=""button"" name=""Submit1"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=button>　" & vbCrLf
	Response.Write " <input type=""submit"" name=""Submit"" class=""button"" value=""修 改"">" & vbCrLf
	Response.Write " </div>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Rs.Close
	Set Rs = Nothing
End Sub


Private Sub linkinfo()
	keyword = Trim(Request("keyword"))
	If Not IsEmpty(Request("page")) Then
		CurrentPage = CInt(Request("page"))
	Else
		CurrentPage = 1
	End If
	maxperpage = 15 '###每页显示数
	PageName = "admin_link.asp"
	Set Rs = CreateObject("adodb.recordset")
	If Not IsNull(keyword) And keyword <> "" Then
		keyword = Replace(Replace(Replace(keyword, "'", "‘"), "<", "&lt;"), ">", "&gt;")
		SQL = "select * from [NC_link] where LinkName  like '%" & keyword & "%'"
		SQL = SQL & " order by linkid desc"
	Else
		SQL = " select * from [NC_link] order by linkid"
	End If
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	Rs.Open SQL, Conn, 1, 1
	If Not (Rs.bof Or Rs.EOF) Then
		Rs.pagesize = maxperpage
		maxpagecount = Rs.pagecount '###记录总页数
		totalnumber = CInt(Rs.recordcount) '###记录总数
		Rs.absolutepage = CurrentPage '###当前页数
admin_link.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器」中的 admin_link.asp 源码文件，采用 ASP 编程语言编写，共 378 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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