📄 admin_linksite.asp
字号:
sIsIndex=0:sIsOK=False:sHits=0:sSubmit=" 添 加 "
end if
%>
<form method="post" name="AddLink" onsubmit="return Check()" action="Admin_LinkSite.asp">
<table border="0" cellpadding="2" cellspacing="1" align="center" width="100%" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>修改友情链接信息</strong></td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>链接类型：</strong></td>
<td height="25"><input name="LinkType" type="radio" value="1" <%if sLinkType=1 then response.write "checked"%>>
Logo链接 <input type="radio" name="LinkType" value="2" <%if sLinkType=2 then response.write "checked"%>>
文字链接</td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>所属分类：</strong></td>
<td height="25">
<select name="ClassID">
<%=ShowLinkClass_Option(0,sClassID)%>
</select>
</td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>网站名称：</strong></td>
<td height="25"> <input name="SiteName" title="这里请输入您的网站名称，最多为20个汉字" value="<%=sSiteName%>" size="80" maxlength="20">
<font color="#FF0000"> *</font></td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>网站地址：</strong></td>
<td height="25"> <input name="SiteUrl" size="80" maxlength="100" type="text" value="<%=sSiteUrl%>" title="这里请输入您的网站地址，最多为50个字符，前面必须带http://">
<font color="#FF0000">*</font></td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>网站Logo：</strong></td>
<td height="25"> <input name="LogoUrl" size="80" maxlength="100" type="text" value="<%=sLogoUrl%>" title="这里请输入您的网站LogoUrl地址，最多为50个字符，如果您在第一选项选择的是文字链接，这项就不必填"><br /> <iframe style="top:2px" ID="UploadFiles" src="../User/Upload.asp?ID=0&Type=0&Obj=LogoUrl" frameborder=0 scrolling=no width="530" height="25"></iframe>
</td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>站长姓名：</strong></td>
<td height="25"> <input name="SiteAdmin" type="text" style="width:200px" title="这里请输入您的大名了，不然我知道您是谁啊。最多为20个字符" value="<%=sSiteAdmin%>" size="1" maxlength="20">
<font color="#FF0000">*</font> <strong>电子邮件：</strong> <input name="Email" size="1" maxlength="30" type="text" value="<%=sEmail%>" style="width:200px" title="这里请输入您的联系电子邮件，最多为30个字符">
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>网站密码：</strong></td>
<td height="25"> <input name="SitePassword" type="password" id="SitePassword" size="1" maxlength="20" style="width:200px">
<font color="#FF0000">*</font> <strong>确认密码：</strong> <input name="SitePwdConfirm" type="password" id="SitePwdConfirm" size="1" maxlength="20" style="width:200px">
<br />
<font color="#FF0000">
若不修改，请保持为空</font>
</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>网站简介：</strong></td>
<td> <textarea name="SiteIntro" cols="68" rows="5" id="SiteIntro" title="这里请输入您的网站的简单介绍"><%=sSiteIntro%></textarea><br />
<a href="javascript:admin_Size(-3,'SiteIntro')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'SiteIntro')"><img src="images/plus.gif" unselectable="on" border='0'></a></td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>推荐站点：</strong></td>
<td height="25"> <input name="IsGood" type="radio" value="<%=TrueType%>" <%if sIsGood then response.write "checked"%>>
是 <input type="radio" name="IsGood" value="<%=FalseType%>" <%if not sIsGood then response.write "checked"%>>
否</td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>首页显示：</strong></td>
<td height="25"> <input name="IsIndex" type="radio" value="1" <%if sIsIndex=1 then response.write "checked"%>>
是 <input type="radio" name="IsIndex" value="0" <%if sIsIndex<>1 then response.write "checked"%>>
否</td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>审核通过：</strong></td>
<td height="25"> <input name="IsOK" type="radio" value="<%=TrueType%>" <%if sIsOK then response.write "checked"%>>
是 <input type="radio" name="IsOK" value="<%=FalseType%>" <%if not sIsOK then response.write "checked"%>>
否</td>
</tr>
<tr class="tdbg">
<td width="150" height="25" align="right"><strong>排序号码：</strong></td>
<td height="25"> <input name="OrderID" size="8" maxlength="10" type="text" value="<%=sOrderID%>">
<font color="#FF0000">*</font> <strong>网站点击：</strong> <input name="Hits" size="8" maxlength="10" type="text" value="<%=sHits%>">
<font color="#FF0000">*</font>
</tr>
<tr class="tdbg">
<td height="40" colspan="2" align="center"><input name="ID" type="hidden" id="ID" value="<%=ID%>">
<input name="Action" type="hidden" id="Action" value="Save<%=Action%>"> <input type="submit" value=" 确 定 " name="cmdOk">
</td>
</tr>
</table>
</form>
<%
end sub
%></body>
</html>
<%
sub SaveInfo()
dim LinkClassID,LinkType,LinkSiteName,LinkSiteUrl,LinkLogoUrl,LinkSiteAdmin,LinkEmail,LinkSitePassword
dim LinkSitePwdConfirm,LinkSiteIntro,LinkIsGood,LinkIsOK,LinkIsIndex,LinkOrderID,LinkHits
LinkClassID=Trim(request("ClassID"))
LinkType=Trim(request("LinkType"))
LinkSiteName=Trim(request("SiteName"))
LinkSiteUrl=Trim(request("SiteUrl"))
LinkLogoUrl=Trim(request("LogoUrl"))
LinkSiteAdmin=Trim(request("SiteAdmin"))
LinkEmail=Trim(request("Email"))
LinkSitePassword=Trim(request("SitePassword"))
LinkSitePwdConfirm=Trim(request("SitePwdConfirm"))
LInkSiteIntro=Trim(request("SiteIntro"))
LinkIsGood=Trim(request("IsGood"))
LinkIsOK=Trim(request("IsOK"))
LinkIsIndex=Trim(request("IsIndex"))
LinkOrderID=Trim(request("OrderID"))
LinkHits=Trim(request("Hits"))
if LinkClassID="" or Not IsNumeric(LinkClassID) then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>链接栏目不能为空！</li>"
else
LinkClassID=Cint(LinkClassID)
end if
if LinkType="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>链接类型不能为空！</li>"
else
LinkType=Cint(LinkType)
if LinkType=1 and (LinkLogoUrl="" or LinkLogoUrl="http://") then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>网站LOGO不能为空！</li>"
end if
end if
if LinkSiteName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>网站名称不能为空！</li>"
end if
if LinkSiteUrl="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>网站地址不能为空！</li>"
end if
if LinkSiteAdmin="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>站长姓名不能为空！</li>"
end if
if LinkEmail<>"" then
if Cl.ChkEmail(LinkEmail)=false then
errmsg=errmsg & "<br /><li>Email地址错误!</li>"
founderr=true
end if
end if
if LinkSitePwdConfirm<>LinkSitePassword then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>网站密码与确认密码不一致！</li>"
end if
if LinkOrderID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>排序ID不能为空！</li>"
end if
if LinkIsIndex<>1 then LinkIsIndex=0
if LinkIsGood=TrueType then
LinkIsGood=TrueType
else
LinkIsGood=FalseType
end if
if LinkIsOK=TrueType then
LinkIsOK=TrueType
else
LinkIsOK=FalseType
end if
if LinkHits="" or Not IsNumeric(LinkHits) then LinkHits=0
if FoundErr=True then
exit sub
end if
dim sqlLink,rsLink
if Action="SaveModify" then
if ID="" or Not IsNumeric(ID) then Cl.ShowErr("<br /><li>请指定友情站点ID</li>")
ID=Clng(ID)
set rsLink=Cl.Execute("select ID from Cl_LinkSite where OrderID=" & LinkOrderID)
if not (rsLink.bof and rsLink.eof) then
if ID<>rsLink(0) then
rsLink.close:set rsLink=Nothing
Cl.ShowErr("<br /><li>排序ID已经存在，请重新选择！</li>")
end if
End if
sqlLink="select * from Cl_LinkSite where ID=" & ID
set rsLink=Server.CreateObject("Adodb.RecordSet")
rsLink.open sqlLink,Conn,1,3
if rsLink.bof and rsLink.eof then
rsLink.close:set rsLink=Nothing
Cl.ShowErr("<br /><li>找不到站点！</li>")
end if
if LinkSitePassword<>"" then
rsLink("SitePassword")=md5(LinkSitePassword,16)
end if
else
if LinkSitePassword="" then
Cl.ShowErr("<br /><li>网站密码不能为空！</li>")
end if
set rsLink=Cl.Execute("select ID from Cl_LinkSite where OrderID=" & LinkOrderID)
if not (rsLink.bof and rsLink.eof) then
rsLink.close:set rsLink=Nothing
Cl.ShowErr("<br /><li>排序ID已经存在，请重新选择！</li>")
End if
sqlLink="select top 1 * from Cl_LinkSite where SiteName='" & Cl.HTMLEncode(LinkSiteName) & "' and SiteUrl='" & Cl.HTMLEncode(LinkSiteUrl) & "'"
set rsLink=Server.CreateObject("Adodb.RecordSet")
rsLink.open sqlLink,Conn,1,3
if not (rsLink.bof and rsLink.eof) then
rsLink.close:set rsLink=Nothing
Cl.ShowErr("<br /><li>你要添加的网站已经存在！</li>")
end if
rsLink.Addnew
rsLink("SitePassword")=md5(LinkSitePassword,16)
end if
rsLink("ClassID")=LinkClassID
rsLink("LinkType")=LinkType
rsLink("SiteName")=Cl.HTMLEncode(LinkSiteName)
rsLink("SiteUrl")=Cl.HTMLEncode(LinkSiteUrl)
rsLink("LogoUrl")=Cl.HTMLEncode(LinkLogoUrl)
rsLink("SiteAdmin")=Cl.HTMLEncode(LinkSiteAdmin)
rsLink("Email")=Cl.HTMLEncode(LinkEmail)
rsLink("SiteIntro")=Cl.HTMLEncode(LinkSiteIntro)
rsLink("IsGood")=LinkIsGood
rsLink("IsOK")=LinkIsOK
rsLink("IsIndex")=LinkIsIndex
rsLink("OrderID")=LinkOrderID
rsLink("Hits")=LinkHits
rsLink.update
rsLink.close:set rsLink=Nothing
if Instr(LinkLogoUrl,"{$uploaddir}")>0 then
Cl.Execute("Update Cl_UpFileLog Set InfoID=0,IsUse=1 Where SaveFileName='"&Cl.CheckStr(LinkLogoUrl)&"'")
end if
Cl.SaveAdminLog
Response.Redirect "Admin_LinkSite.asp"
end sub
Function ShowLinkClass_Option(ShowType,CurrentID)
dim rsClass,sqlClass,strTemp,tmpDepth,i
if ShowType=0 then
strTemp="<option value='0'"
if CurrentID=0 then strTemp=strTemp & " selected"
strTemp=strTemp & ">不指定任何分类</option>"
end if
dim arrShowLine(20)
for i=0 to ubound(arrShowLine)
arrShowLine(i)=False
next
sqlClass="Select * From Cl_LinkClass order by RootID,OrderID"
set rsClass=Cl.Execute(sqlClass)
if rsClass.bof and rsClass.eof then
strTemp=strTemp & "<option value=''>无任何分类</option>"
else
do while not rsClass.eof
tmpDepth=rsClass("Depth")
if rsClass("NextID")>0 then
arrShowLine(tmpDepth)=True
else
arrShowLine(tmpDepth)=False
end if
if ShowType=2 then
if Not Cl.ChkUserGroupID(rsClass("AddPurview"),Cl.UserGroupID) then
strTemp=strTemp & "<option value='-1'"
else
strTemp=strTemp & "<option value='" & rsClass("ClassID") & "'"
end if
else
strTemp=strTemp & "<option value='" & rsClass("ClassID") & "'"
end if
if CurrentID>0 and rsClass("ClassID")=CurrentID then
strTemp=strTemp & " selected"
end if
strTemp=strTemp & ">"
if tmpDepth>0 then
for i=1 to tmpDepth
strTemp=strTemp & " "
if i=tmpDepth then
if rsClass("NextID")>0 then
strTemp=strTemp & "├ "
else
strTemp=strTemp & "└ "
end if
else
if arrShowLine(i)=True then
strTemp=strTemp & "│"
else
strTemp=strTemp & " "
end if
end if
next
end if
strTemp=strTemp & rsClass("ClassName")
if ShowType=2 and Not Cl.ChkUserGroupID(rsClass("AddPurview"),Cl.UserGroupID) then
strTemp=strTemp & " *"
end if
strTemp=strTemp & "</option>"
rsClass.movenext
loop
end if
rsClass.close:set rsClass=Nothing
ShowLinkClass_Option=strTemp
End Function
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -