📄 admin_managelinks.asp
字号:
<!--#include file="Inc/Inc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Admin_Css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Call ClsAdmin.CheckManager(0,9)
ClsPub.Chk_Post()
ClsPub.SysConfig()
Dim Action,FId
Action=ClsPub.SafeRequest(3,"Action",1,0,0)
Fid=ClsPub.SafeRequest(3,"Fid",0,0,0)
Select Case Action
Case "AddLink"
Call AddLink()
Case "SaveLink"
Call SaveLink()
Case "ModifyLink"
Call ModifyLink(Fid)
Case "SaveModifyLink"
Call SaveModifyLink(Fid)
Case "DeleteLink"
Call DeleteLink(Fid)
Case Else
Call FriendLinkList()
End Select
Sub AddLink()
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<form method="POST" action="?Action=SaveLink" id="form1" name="form1">
<tr>
<td height="22" colspan="2" class="title">添加友情链接 </td>
</tr>
<tr>
<td width="330" height="25" class="td">链接类型：</td>
<td height="25" class="td">
<input type="radio" name="FType" value="1" checked>
文字
<input type="radio" name="FType" value="0">
LOGO </td>
</tr>
<tr>
<td width="330" height="25" class="td">网站名称：</td>
<td width="642" height="25" class="td">
<input name="SiteName" type="text" id="SiteName" size="40" maxlength="50"> *
</td>
</tr>
<tr>
<td width="330" height="25" class="title3">网站Url：</td>
<td width="642" height="25" class="title3">
<input name="SiteUrl" type="text" id="SiteUrl" size="40" maxlength="50" value="http://"> *
</td>
</tr>
<tr>
<td width="330" height="25" class="td">Logo Url：</td>
<td width="642" height="25" class="td">
<input name="LogoUrl" type="text" id="LogoUrl" size="40" maxlength="50" value="http://">
</td>
</tr>
<tr>
<td width="330" height="25" class="td">站点简介：</td>
<td width="642" height="25" class="td">
<textarea name="SiteDescribe" cols="40" rows="4" id="SiteDescribe"></textarea>
</td>
</tr>
<tr>
<td width="330" height="25" class="td">是否生效：</td>
<td height="25" class="td">
<input type="radio" name="IsOpen" value="1" checked>
是
<input type="radio" name="IsOpen" value="0">
否 </td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="title3">
<input name="Action" type="hidden" id="Action" value="SaveConfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保 存 ">
</td>
</tr>
</form>
<%
End Sub
Sub SaveLink()
Dim FType,SiteName,SiteUrl,LogoUrl,SiteDescribe,IsOpen
FType=ClsPub.SafeRequest(2,"FType",0,0,0)
SiteName=ClsPub.SafeRequest(2,"SiteName",1,"",1)
SiteUrl=ClsPub.SafeRequest(2,"SiteUrl",1,"",1)
LogoUrl=ClsPub.SafeRequest(2,"LogoUrl",1,"",1)
SiteDescribe=ClsPub.SafeRequest(2,"SiteDescribe",1,"",2)
IsOpen=ClsPub.SafeRequest(2,"IsOpen",0,0,0)
ClsPub.DB_Execute("Insert into Tso_FriendLink(FType,SiteName,SiteUrl,LogoUrl,SiteDescribe,IsOpen)Values("&FType&",'"&SiteName&"','"&SiteUrl&"','"&LogoUrl&"','"&SiteDescribe&"','"&IsOpen&"')")
ClsPub.DelCahe("TextAd")
ClsPub.DelCahe("LogoAd")
SysMsg="保存成功"
Call ClsPub.Alert("?",0)
End Sub
Sub SaveModify(Fid)
End Sub
Sub FriendLinkList()
Dim Temp
Temp=ClsPub.DB_Query("Select * From Tso_FriendLink Order By AddTime Desc")
If Not IsArray(Temp) Then
SysMsg="暂无友情链接"
Call ClsPub.ShowMsg("","")
End If
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td height="22" class="title" colspan=7>操作信息</td>
</tr>
<FORM METHOD=POST ACTION="?action=touser">
<tr align=center height=23>
<td class="td" width="10%"><B>链接类型</B></td>
<td class="td" width="15%"><B>网站名称</B></td>
<td class="td" width="15%"><B>Logo</B></td>
<td class="td" width="28%"><B>站点简介</B></td>
<td class="td" width="5%"><B>生效</B></td>
<td class="td" width="17%"><b>添加日期</b></td>
<td class="td"><B>操作</B></td>
</tr>
<%
Dim i,MyItem,FCount,PageSize,Page
FCount=Ubound(Temp,2)
PageSize=15
Page=Request.QueryString("Page")
If Page="" OR Not IsNumeric(Page) Then
Page=1
Else
Page=Int(Page)
End If
For i = 0 To FCount
MyItem=MyItem+1
If MyItem>(Page-1)*PageSize And MyItem<=Page*Pagesize Then
%>
<tr bgcolor="F1F3F5" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#CAD7F7'" style="padding: 0px 2px;">
<td align=center>
<%
If Temp(1,i)=1 Then
Response.Write "文字链接"
Else
Response.Write "Logo链接"
End If
%>
</td>
<td align=center><a href="<%=Temp(3,i)%>"><%=Temp(2,i)%></a></td>
<td align=center><%If Temp(1,i)=0 Then Response.Write "<img src='"&Temp(5,i)&"'>"%></td>
<td align=center><%=Temp(4,i)%></td>
<td align=center>
<%
If Temp(7,i) Then
Response.Write "是"
Else
Response.Write "否"
End IF
%>
</td>
<td align=center>
<%=Temp(6,i)%>
</td>
<td align=center><a href="?Action=ModifyLink&Fid=<%=Temp(0,i)%>">修改</a> <a href="?Action=DeleteLink&Fid=<%=Temp(0,i)%>" onClick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a></td>
</tr>
<%
ElseIf MyItem>Page*PageSize Then
Exit For
End If
Next
%>
<tr><td colspan=7 class="td" align=right>
<%=ClsPub.PageList(Pagesize,FCount+1,Page,"","")%></td></tr>
</FORM>
</table>
<%
End Sub
Sub ModifyLink(Fid)
Call ClsPub.Chk_Id(Fid,0,"Back",0)
Dim Temp
Temp=ClsPub.DB_Query("Select Fid,FType,SiteName,SiteUrl,LogoUrl,SiteDescribe,IsOpen From Tso_FriendLink Where Fid="&Fid)
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<form method="POST" action="?Action=SaveModifyLink&Fid=<%=Temp(0,0)%>" id="form1" name="form1">
<tr>
<td height="22" colspan="2" class="title">添加友情广告 </td>
</tr>
<tr>
<td width="330" height="25" class="td">广告类型：</td>
<td height="25" class="td">
<input type="radio" name="FType" value="1" <%If Temp(1,0)=1 Then Response.Write "Checked"%>>
文字
<input type="radio" name="FType" value="0" <%If Temp(1,0)=0 Then Response.Write "Checked"%>>
LOGO </td>
</tr>
<tr>
<td width="330" height="25" class="td">网站名称：</td>
<td width="642" height="25" class="td">
<input name="SiteName" type="text" id="SiteName" size="40" maxlength="50" value="<%=Temp(2,0)%>"> *
</td>
</tr>
<tr>
<td width="330" height="25" class="title3">网站Url：</td>
<td width="642" height="25" class="title3">
<input name="SiteUrl" type="text" id="SiteUrl" size="40" maxlength="50" value="<%=Temp(3,0)%>"> *
</td>
</tr>
<tr>
<td width="330" height="25" class="td">Logo Url：</td>
<td width="642" height="25" class="td">
<input name="LogoUrl" type="text" id="LogoUrl" size="40" maxlength="50" value="<%=Temp(4,0)%>">
</td>
</tr>
<tr>
<td width="330" height="25" class="td">站点简介：</td>
<td width="642" height="25" class="td">
<textarea name="SiteDescribe" cols="40" rows="4" id="SiteDescribe"><%=Temp(5,0)%></textarea>
</td>
</tr>
<tr>
<td width="330" height="25" class="td">是否生效：</td>
<td height="25" class="td">
<input type="radio" name="IsOpen" value="-1" <%If Temp(6,0)=-1 Then Response.Write "Checked"%>>
是
<input type="radio" name="IsOpen" value="0" <%If Temp(6,0)=0 Then Response.Write "Checked"%>>
否 </td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="title3">
<input name="Action" type="hidden" id="Action" value="SaveConfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存 ">
</td>
</tr>
</form>
<%
End Sub
Sub SaveModifyLink(Fid)
Call ClsPub.Chk_Id(Fid,0,"Back",0)
Dim FType,SiteName,SiteUrl,LogoUrl,SiteDescribe,IsOpen
FType=ClsPub.SafeRequest(2,"FType",0,0,0)
SiteName=ClsPub.SafeRequest(2,"SiteName",1,"",1)
SiteUrl=ClsPub.SafeRequest(2,"SiteUrl",1,"",1)
LogoUrl=ClsPub.SafeRequest(2,"LogoUrl",1,"",1)
SiteDescribe=ClsPub.SafeRequest(2,"SiteDescribe",1,"",2)
IsOpen=ClsPub.SafeRequest(2,"IsOpen",0,0,0)
ClsPub.DB_Execute("Update Tso_FriendLink Set FType='"&FType&"',SiteName='"&SiteName&"',SiteUrl='"&SiteUrl&"',LogoUrl='"&LogoUrl&"',SiteDescribe='"&SiteDescribe&"',IsOpen='"&IsOpen&"' Where Fid="&Fid)
ClsPub.DelCahe("TextAd")
ClsPub.DelCahe("LogoAd")
SysMsg="修改成功"
Call ClsPub.Alert("?",0)
End Sub
Sub DeleteLink(Fid)
Call ClsPub.Chk_Id(Fid,0,"Back",0)
ClsPub.DB_Execute("Delete * From Tso_FriendLink Where Fid="&Fid)
ClsPub.DelCahe("TextAd")
ClsPub.DelCahe("LogoAd")
SysMsg="删除成功"
Call ClsPub.Alert("?",0)
End Sub
%>
<%CloseAll%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -