⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 aa_link.asp

📁 台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.
💻 ASP
字号:
🔍 
 <%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
Dim LiClass,Link_Logo
Page_HeadName="<A HREF=Aa_Link.asp?Action=Add>添加合作伙伴</A>　|　<A HREF=Aa_Link.asp?Action=Manage>合作伙伴列表</A>"
Select Case Action
Case "Add"
Call Page_AdminFlag(11)
Page_BootmName="添加合作伙伴"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=Aa_Link.asp?Action=sAdd>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>网站名称：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Link_Name TYPE=text id=Link_Name size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>网站地址：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Link_Url TYPE=text VALUE='http://' id=Link_Url size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>网站LOGO：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Link_Logo TYPE=text id=Link_Logo size=45></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=90 CLASS=Table8>网站简介：</TD>"&_
         "<TD CLASS=Table8><TEXTAREA NAME=Link_Content cols=44 rows=5 id=Link_Content></TEXTAREA>　　HTML禁用</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>网站审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all CLASS=radio_all NAME=Link_Flag VALUE='1' checked> 通过审核　<INPUT TYPE=radio CLASS=radio_all NAME=Link_Flag VALUE='0'>取消审核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT CLASS=submit_all NAME=ok TYPE=submit id=ok VALUE=提交资料> "&_
         "<INPUT NAME=cl TYPE=reset CLASS=submit_all id=cl VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "Edit"
Call Page_AdminFlag(12)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Link Where Link_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="合作伙伴修改 > " & Rs_edit("Link_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("Link_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=Aa_Link.asp?Action=sEdit&Id=" & Id & ">"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>网站名称：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Link_Name TYPE=text id=Link_Name VALUE='" & Rs_edit("Link_Name") & "' size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>网站地址：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Link_Url TYPE=text id=Link_Url VALUE='" & Rs_edit("Link_Url") & "' size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>网站LOGO：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Link_Logo TYPE=text id=Link_Logo VALUE='" & Rs_edit("Link_Logo") & "' size=45></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=90 CLASS=Table8>网站简介：</TD>"&_
         "<TD CLASS=Table8><TEXTAREA NAME=Link_Content cols=44 rows=5 id=Link_Content>" & Rs_edit("Link_Content") & "</TEXTAREA>　　HTML禁用</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>网站审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=Link_Flag VALUE='1' " & checked1 & "> 通过审核　<INPUT TYPE=radio CLASS=radio_all NAME=Link_Flag VALUE='0' " & checked2 & ">取消审核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok2 CLASS=submit_all TYPE=submit id=ok2 VALUE=提交资料> "&_
         "<INPUT NAME=cl2 TYPE=reset CLASS=submit_all id=cl2 VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "Manage"
Call Page_AdminFlag(12)
Page_BootmName="合作伙伴列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Link order by Link_Id"
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=8% HEIGHT=23 CLASS=Table6>链接类型</TD><TD WIDTH=15% CLASS=Table6>网站名称</TD><TD WIDTH=15% CLASS=Table6> 网站LOGO </TD><TD CLASS=Table6> 网站简介</TD><TD WIDTH=22% CLASS=Table6>操作</TD></TR>"
Rs_Manage.PageSize = 15
totalrec=Rs_Manage.RecordCount 
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
IF Rs_Manage("Link_Logo")="" THEN
LiClass="文字"
Link_Logo=""
Else
LiClass="LOGO"
Link_Logo="<A HREF=" & Rs_Manage("Link_Url") & " target=_blank><IMG SRC=" & Rs_Manage("Link_Logo") & " WIDTH=88 HEIGHT=31 BORDER=0></A>"
End IF
IF Rs_Manage("Link_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>审核</FONT>"
End IF
strIfa = strIfa & "<Form NAME=inbox method=post action=Aa_Link.asp?Action=Delall>"&_
                  "<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
				  "<TD HEIGHT=40 ALIGN=center>" & LiClass & "</TD>"&_
                  "<TD><A HREF=" & Rs_Manage("Link_Url") & " target=_blank>" & Rs_Manage("Link_Name") & "</A></TD>"&_
                  "<TD ALIGN=center>" & Link_Logo & "</TD>"&_
                  "<TD><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=5>"&_
                  "<TR>"&_
                  "<TD>" & Rs_Manage("Link_Content") & "</TD>"&_
                  "</TR>"&_
                  "</TABLE></TD>"&_
                  "<TD ALIGN=center>"&_
                  "<A HREF=Aa_Link.asp?Action=Edit&Id=" & Rs_Manage("Link_Id") & ">修改</A> | "&_
                  "<A HREF=Aa_Link.asp?Action=Flag&Id=" & Rs_Manage("Link_Id") & ">" & TitleFlag & "</A> | "&_
                  "<A HREF=Aa_Link.asp?Action=Del&Id=" & Rs_Manage("Link_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
                  "<INPUT TYPE=checkbox CLASS=radio_all NAME=Id VALUE=" & Rs_Manage("Link_Id") & ">"&_
                  "</TD>"&_
                  "</TR>"
Rs_Manage.movenext
wend 
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=30 colspan=7 ALIGN=center CLASS=Table9>"&_
                  "<INPUT TYPE=checkbox CLASS=radio_all NAME=chkall VALUE=on onclick=CheckAll(this.form)>"&_
                  " 选择全部　"&_
                  "<INPUT TYPE=submit CLASS=submit_all NAME=Del VALUE=' 删除 ' onClick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'> "&_
                  "<INPUT TYPE=submit CLASS=submit_all NAME=FlagOk VALUE=通过审核 onClick=" & CHR(34) & "this.form.action='Aa_Link.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
                  "<INPUT TYPE=submit CLASS=submit_all NAME=FlagNo VALUE=取消审核 onClick=" & CHR(34) & "this.form.action='Aa_Link.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & "> "&_
                  "</TD>"&_
                  "</TR>"&_
                  "</form>"&_
                  "<TR>"&_
                  "<TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "</TABLE>"
Call Page_aTable(0,1)
Case "sAdd"
IF Request.form("Link_Name")="" THEN
Errorst="请输入网站名称！"
founderr=True
elseif Request.form("Link_Url")="" THEN
Errorst="请输入网站地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Link"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("Link_Name")=Request.form("Link_Name")
		Rs("Link_Url")=Request.form("Link_Url")
		Rs("Link_Logo")=Request.form("Link_Logo")
		Rs("Link_Content")=nohtml(Request.form("Link_Content"))
		Rs("Link_Flag")=Request.form("Link_Flag")
		Rs.UpDate
		Id=Rs("Link_Id")
		Rs.Close
		Set Rs=Nothing
		ToHistory="Aa_Link.asp?Action=Manage"
		saveok="合作伙伴：[ " & Request.form("Link_Name") & " ] 添加成功！"
	    Call Form_Saveok()
End IF
Case "sEdit"
IF Request.form("Link_Name")="" THEN
Errorst="请输入网站名称！"
founderr=True
elseif Request.form("Link_Url")="" THEN
Errorst="请输入网站地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Link where Link_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("Link_Name")=Request.form("Link_Name")
		Rs("Link_Url")=Request.form("Link_Url")
		Rs("Link_Logo")=Request.form("Link_Logo")
		Rs("Link_Content")=dvHTMLEncode(Request.form("Link_Content"))
		Rs("Link_Flag")=Request.form("Link_Flag")
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory=Request.servervariables("http_referer")
		saveok="合作伙伴：[ " & Request.form("Link_Name") & " ] 修改成功！"
	    Call Form_Saveok()
End IF
Case "Del"
    Conn.Execute "Delete From Tx_Link Where Link_Id=" & Id
    ToHistory="Aa_Link.asp?Action=Manage"
    saveok="删除成功！"
    Call Form_Saveok()
Case "Flag"
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Link where Link_Id=" & Id
        Rs.open Sql,Conn,1,3
		IF Rs("Link_Flag")=1 THEN
		    Rs("Link_Flag")=0
		saveok="合作伙伴：[ " & Rs("Link_Name") & " ] 已取消审核！"
		Else
		    Rs("Link_Flag")=1
		saveok="合作伙伴：[ " & Rs("Link_Name") & " ] 已通过审核！"
		End IF
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory=Request.servervariables("http_referer")
	    Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "Delete From Tx_Link Where Link_Id in (" & Request.form("Id") & ")"
		ToHistory=Request.servervariables("http_referer")
    saveok="删除成功！"
    Call Form_Saveok()
End IF
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="请选择要审核的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "upDate Tx_Link Set Link_Flag=1 Where Link_Id in (" & Request.form("Id") & ")"
	ToHistory=Request.servervariables("http_referer")
    saveok="已通过审核！"
    Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="请选择要取消审核的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "upDate Tx_Link set Link_Flag=0 Where Link_Id in (" & Request.form("Id") & ")"
		ToHistory=Request.servervariables("http_referer")
    saveok="已取消审核！"
    Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>

⌨️ 快捷键说明

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