📄 admin_link.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#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
DownsysClass.admin_header

Call Linkmain
DownsysClass.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>" & Chr(13) & Chr(10)
	Response.Write "<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <th width=""100%"" colspan=2 height=25>添加友情链接 </th>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" height=25 class=forumrow>主页名称 </td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" height=25 class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " <input type=""text"" name=""name"" size=40>" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" height=25 class=forumrow>连接URL </td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " <input type=""text"" name=""url"" value=""http://"" size=40>" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" height=25 class=forumrow>连接LOGO地址 </td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " <input type=""text"" name=""logo"" value=""http://"" size=40>" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" height=25 class=forumrow>简介 </td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " <input type=""text"" name=""readme"" size=40>" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" height=25 class=forumrow>在首页是文字连接还是LOGO连接 </td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " 文字连接<input type=""radio"" name=""islogo"" value=0 checked>&nbsp;&nbsp;LOGO连接<input type=""radio"" name=""islogo"" value=1>" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	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>　" & Chr(13) & Chr(10)
	Response.Write " <input type=""submit"" name=""Submit"" class=""button"" value=""添 加"">" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write "</table>" & Chr(13) & Chr(10)
	Response.Write "</form>" & Chr(13) & Chr(10)
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>" & Chr(13) & Chr(10)
	Response.Write "<input type=hidden name=id value="
	Response.Write Request("id")
	Response.Write ">" & Chr(13) & Chr(10)
	Response.Write "<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <th width=""100%"" colspan=2 height=25>编辑友情链接</th>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" class=forumrow>主页名称：</td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " <input type=""text"" name=""name"" size=40 value="
	Response.Write Rs("Linkname")
	Response.Write ">" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" class=forumrow>连接URL： </td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " <input type=""text"" name=""url"" size=40 value="
	Response.Write Rs("Lurl")
	Response.Write ">" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" class=forumrow>连接LOGO地址： </td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " <input type=""text"" name=""logo"" size=40 value="""
	Response.Write Rs("logo")
	Response.Write """>" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" class=forumrow>简介：</td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " <input type=""text"" name=""readme"" size=40 value="
	Response.Write Rs("readme")
	Response.Write ">" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td width=""40%"" height=25 class=forumrow>在首页是文字连接还是LOGO连接 </td>" & Chr(13) & Chr(10)
	Response.Write " <td width=""60%"" class=forumrow> " & Chr(13) & Chr(10)
	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 ">" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td height=""15"" align=center colspan=""2"" class=forumrow> " & Chr(13) & Chr(10)
	Response.Write " <div align=""center"">"
	Response.Write " <input type=""button"" name=""Submit1"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=button>　" & Chr(13) & Chr(10)
	Response.Write " <input type=""submit"" name=""Submit"" class=""button"" value=""修 改"">" & Chr(13) & Chr(10)
	Response.Write " </div>" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write "</table>" & Chr(13) & Chr(10)
	Response.Write "</form>" & Chr(13) & Chr(10)
	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
	DownsysClass.SqlQueryNum = DownsysClass.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 '###当前页数
		ii = 0
		Rem #######显示多少页##########
		pagestart = CurrentPage - 3
		pageend = CurrentPage + 3
12 下一页
⌨️ 快捷键说明

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