📄 admin_friendlinks.asp
字号:
<td width="300" height="25"><strong>推荐站点：</strong></td>
<td height="25" valign="middle">
<input name="IsGood" type="radio" value="True" checked>
是 <input type="radio" name="IsGood" value="False">
否</td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300" height="25"><strong>审核通过：</strong></td>
<td height="25" valign="middle">
<input name="IsOK" type="radio" value="True" checked>
是 <input type="radio" name="IsOK" value="False">
否</td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td height="40" colspan="2" align="center">
<input name="Action" type="hidden" id="Action" value="SaveAdd">
<input type="submit" value=" 确 定 " name="cmdOk"> <input type="reset" value=" 重 填 " name="cmdReset">
</td>
</tr>
</table>
</form>
<%
end sub
sub Modify()
if ID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定友情站点ID</li>"
exit sub
else
ID=Clng(ID)
end if
dim sqlLink,rsLink
sqlLink="select * from FriendLinks where ID=" & ID
set rsLink=Server.CreateObject("Adodb.RecordSet")
rsLink.open sqlLink,conn,1,3
if rsLink.bof and rsLink.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到站点！</li>"
rsLink.close
set rsLink=nothing
exit sub
end if
%>
<form method="post" name="AddLink" onsubmit="return Check()" action="Admin_FriendLinks.asp">
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000" class="border">
<tr bgcolor="#FFFFFF" class="title">
<td height="22" colspan="2" align="center"><strong>修改友情链接信息</strong></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300" height="25"><strong>链接类型：</strong></td>
<td height="25">
<input name="LinkType" type="radio" value="1" <%if rsLink("LinkType")=1 then response.write "checked"%>>
Logo链接 <input type="radio" name="LinkType" value="2" <%if rsLink("LinkType")=2 then response.write "checked"%>>
文字链接</td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300" height="25" valign="middle"><strong>网站名称：</strong></td>
<td height="25">
<input name="SiteName" title="这里请输入您的网站名称，最多为20个汉字" value="<%=rsLink("SiteName")%>" size="30" maxlength="20">
<font color="#FF0000"> *</font></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300" height="25"><strong>网站地址：</strong></td>
<td height="25">
<input name="SiteUrl" size="30" maxlength="100" type="text" value="<%=rsLink("SiteUrl")%>" title="这里请输入您的网站地址，最多为50个字符，前面必须带http://">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300" height="25"><strong>网站Logo：</strong></td>
<td height="25">
<input name="LogoUrl" size="30" maxlength="100" type="text" value="<%=rsLink("LogoUrl")%>" title="这里请输入您的网站LogoUrl地址，最多为50个字符，如果您在第一选项选择的是文字链接，这项就不必填">
</td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300" height="25"><strong>站长姓名：</strong></td>
<td height="25">
<input name="SiteAdmin" type="text" title="这里请输入您的大名了，不然我知道您是谁啊。最多为20个字符" value="<%=rsLink("SiteAdmin")%>" size="30" maxlength="20">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300" height="25"><strong>电子邮件：</strong></td>
<td height="25">
<input name="Email" size="30" maxlength="30" type="text" value="<%=rsLink("Email")%>" title="这里请输入您的联系电子邮件，最多为30个字符">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300"><strong>网站简介：</strong></td>
<td valign="middle">
<textarea name="SiteIntro" cols="40" rows="5" id="SiteIntro" title="这里请输入您的网站的简单介绍"><%=rsLink("SiteIntro")%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300" height="25"><strong>推荐站点：</strong></td>
<td height="25" valign="middle">
<input name="IsGood" type="radio" value="True" <%if rsLink("IsGood")=True then response.write "checked"%>>
是 <input type="radio" name="IsGood" value="False" <%if rsLink("IsGood")=False then response.write "checked"%>>
否</td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="300" height="25"><strong>审核通过：</strong></td>
<td height="25" valign="middle">
<input name="IsOK" type="radio" value="True" <%if rsLink("IsOK")=True then response.write "checked"%>>
是 <input type="radio" name="IsOK" value="False" <%if rsLink("IsOK")=False then response.write "checked"%>>
否</td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td height="40" colspan="2" align="center">
<input name="ID" type="hidden" id="ID" value="<%=rsLink("ID")%>">
<input name="Action" type="hidden" id="Action" value="SaveModify"> <input type="submit" value=" 确 定 " name="cmdOk">
</td>
</tr>
</table>
</form>
<%
rsLink.close
set rsLink=nothing
end sub
%>
<!-- #include file="Inc/Foot.asp" -->
<%
sub SaveAdd()
dim LinkType,LinkSiteName,LinkSiteUrl,LinkLogoUrl,LinkSiteAdmin,LinkEmail,LinkSitePassword,LinkSitePwdConfirm,LinkSiteIntro,LinkIsGood,LinkIsOK
LinkType=trim(request("LinkType"))
LinkSiteName=trim(request("SiteName"))
LinkSiteUrl=trim(request("SiteUrl"))
LinkLogoUrl=trim(request("LogoUrl"))
LinkSiteAdmin=trim(request("SiteAdmin"))
LinkEmail=trim(request("Email"))
LInkSiteIntro=trim(request("SiteIntro"))
LinkIsGood=trim(request("IsGood"))
LinkIsOK=trim(request("IsOK"))
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
FoundErr=True
ErrMsg=ErrMsg & "<br><li>Email不能为空！</li>"
else
if IsValidEmail(LinkEmail)=false then
errmsg=errmsg & "<br><li>Email地址错误!</li>"
founderr=true
end if
end if
if LinkSiteIntro="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>网站简介不能为空！</li>"
end if
if LinkSiteIntro="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>网站简介不能为空！</li>"
end if
if LinkIsGood="True" then
LinkIsGood=True
else
LinkIsGood=False
end if
if LinkIsOK="True" then
LinkIsOK=True
else
LinkIsOK=False
end if
if FoundErr<>True then
dim sqlLink,rsLink
sqlLink="select * from FriendLinks where SiteName='" & LinkSiteName & "' and SiteUrl='" & LinkSiteUrl & "'"
set rs=Server.CreateObject("Adodb.RecordSet")
rs.open sqlLink,conn,1,1
if not (rs.bof and rs.eof) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>你要添加的网站已经存在！</li>"
else
set rsLink=Server.CreateObject("Adodb.RecordSet")
sql="select * from FriendLinks where (id is null)"
rsLink.open sql,conn,1,3
rsLink.Addnew
rsLink("LinkType")=LinkType
rsLink("SiteName")=dvHtmlEncode(LinkSiteName)
rsLink("SiteUrl")=dvHtmlEncode(LinkSiteUrl)
rsLink("LogoUrl")=dvHtmlEncode(LinkLogoUrl)
rsLink("SiteAdmin")=dvHtmlEncode(LinkSiteAdmin)
rsLink("Email")=dvHtmlEncode(LinkEmail)
rsLink("SiteIntro")=dvHtmlEncode(LinkSiteIntro)
rsLink("IsGood")=LinkIsGood
rsLink("IsOK")=LinkIsOK
rsLink.update
rsLink.close
set rsLink=nothing
call CloseConn()
Response.Redirect "Admin_FriendLinks.asp"
end if
rs.close
set rs=nothing
end if
end sub
sub SaveModify()
if ID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定友情站点ID</li>"
exit sub
else
ID=Clng(ID)
end if
dim LinkType,LinkSiteName,LinkSiteUrl,LinkLogoUrl,LinkSiteAdmin,LinkEmail,LinkSitePassword,LinkSitePwdConfirm,LinkSiteIntro,LinkIsGood,LinkIsOK
LinkType=trim(request("LinkType"))
LinkSiteName=trim(request("SiteName"))
LinkSiteUrl=trim(request("SiteUrl"))
LinkLogoUrl=trim(request("LogoUrl"))
LinkSiteAdmin=trim(request("SiteAdmin"))
LinkEmail=trim(request("Email"))
LInkSiteIntro=trim(request("SiteIntro"))
LinkIsGood=trim(request("IsGood"))
LinkIsOK=trim(request("IsOK"))
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
FoundErr=True
ErrMsg=ErrMsg & "<br><li>Email不能为空！</li>"
else
if IsValidEmail(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 LinkSiteIntro="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>网站简介不能为空！</li>"
end if
if LinkSiteIntro="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>网站简介不能为空！</li>"
end if
if LinkIsGood="True" then
LinkIsGood=True
else
LinkIsGood=False
end if
if LinkIsOK="True" then
LinkIsOK=True
else
LinkIsOK=False
end if
if FoundErr=True then
exit sub
end if
dim sqlLink,rsLink
sqlLink="select * from FriendLinks where ID=" & ID
set rsLink=Server.CreateObject("Adodb.RecordSet")
rsLink.open sqlLink,conn,1,3
if rsLink.bof and rsLink.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到站点！</li>"
else
rsLink("LinkType")=LinkType
rsLink("SiteName")=dvHtmlEncode(LinkSiteName)
rsLink("SiteUrl")=dvHtmlEncode(LinkSiteUrl)
rsLink("LogoUrl")=dvHtmlEncode(LinkLogoUrl)
rsLink("SiteAdmin")=dvHtmlEncode(LinkSiteAdmin)
rsLink("Email")=dvHtmlEncode(LinkEmail)
rsLink("SiteIntro")=dvHtmlEncode(LinkSiteIntro)
rsLink("IsGood")=LinkIsGood
rsLink("IsOK")=LinkIsOK
rsLink.update
rsLink.close
set rsLink=nothing
call CloseConn()
Response.Redirect "Admin_FriendLinks.asp"
end if
rsLink.close
set rsLink=nothing
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -