cnbbr_linkedit.asp

. 缓存处理技术

<!-- #include file="SysConfig.asp" -->
<!-- #include file="CheckAdmin.asp" -->

<%
  Dim Act
  Act=lCase(CheckStr(Trim(Request.Form("Act"))))

  Dim TempLID
  TempLID=CheckStr(Trim(Rst("LinkID")))
  if Not isNum(TempLID) then Call AlertInfo("出错了，没有找到此友情链接！","Search_Link.asp",1)
 
With Response

  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
  .Write" <tr> "& vbcrlf
  .Write"	 <td colspan=2 width=100% align=center height=2 class=menutdbg_1></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr height=32> "& vbcrlf
  .Write"  <td width=100% colspan=2 background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif"">&nbsp;<img src=""../Skins/"& Skins_Folder &"/Go.gif"" border=""0""><a href=""help.asp"" class=menuColor_1><b>后台管理</b></a>&gt;&gt;&gt; <a href=""###"" class=menuColor_1><b>友情链接管理</b></a>&gt;&gt;&gt; <a href=""Search_Link.asp"" class=menuColor_1><b>更新友情链接</b></a> </td>"& vbcrlf
  .Write"  </tr>"& vbcrlf
  .Write"</table>" & Vbcrlf

if Act<>"editlink" then

  Sql="Select Cnbbr_lWebName,Cnbbr_lWebUrl,Cnbbr_lWebLogo,Cnbbr_lDescription,Cnbbr_lisLogo,Cnbbr_lOwnerID from cnbbr_link where cnbbr_lID="& TempLid
  Set Rs=Conn.Execute(Sql)
  If Rs.Bof Or Rs.Eof then Call AlertInfo("出错了，没有找到此友情链接！","Search_Link.asp",1)

  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=1 class=tablebg>"& vbcrlf
  .Write"<form name=linkedit method=post action="""">"& Vbcrlf
  .Write" <tr class=titletd> "& vbcrlf
  .Write"   <td colspan=2 width=100% align=center>更新首页友情链接</td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr class=td> "& vbcrlf
  .Write"   <td width=40% align=center>网站名称：</td> "& vbcrlf
  .Write"   <td width=60% align=left><input name=WebName type=text size=30 value="""& Rs("Cnbbr_lWebName") &"""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr class=td> "& vbcrlf
  .Write"   <td width=40% align=center>网站地址：</td> "& vbcrlf
  .Write"   <td width=60% align=left><input name=WebURL type=text size=30 value="""& Rs("Cnbbr_lWebUrl") &"""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr class=td> "& vbcrlf
  .Write"   <td width=40% align=center>网站LOGO：</td> "& vbcrlf
  .Write"   <td width=60% align=left><input name=WebLOGO type=text size=30 value="""& Rs("Cnbbr_lWebLogo") &"""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr class=td> "& vbcrlf
  .Write"   <td width=40% align=center>站点描述：</td> "& vbcrlf
  .Write"   <td width=60% align=left><input name=Description type=text size=30 value="""& Rs("Cnbbr_lDescription") &"""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr class=titletd> "& vbcrlf
  .Write"   <td colspan=2 width=100% height=28 align=center><input name=LinkID type=hidden value="""& TempLID &"""><input name=act type=hidden value=""editlink""><input name=submit type=submit value=""更新首页链接""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" </form>"& Vbcrlf
  .Write"</table>" & Vbcrlf


else
  Call CheckAdminFlag(TempAdminFlag,3)
  Dim WebName,WebUrl,WebLogo,Description

  WebName=CheckStr(Trim(Request.Form("WebName")))
  WebUrl=CheckStr(Trim(Request.Form("WebUrl")))
  WebLogo=CheckStr(Trim(Request.Form("WebLogo")))
  Description=CheckStr(Trim(Request.Form("Description")))

  if len(WebName)<2 then Call AlertInfo("网站名称不符合要求，请重新填写！","",0)
  if len(WebUrl)<2 then Call AlertInfo("网站地址不符合要求，请重新填写！","",0)
  if Len(WebUrl)>250 then Call AlertInfo("网站地址长度不能大于250个字符，请重新填写！","",0)
  if WebLogo<>"" and len(WebLogo)<10 then Call AlertInfo("网站LOGO不符合要求，请重新填写！","",0)
  if WebLogo<>"" and len(WebLogo)>250 then Call AlertInfo("网站LOGO地址长度不能大于250个字符，请重新填写！","",0)

  Dim isLogo:islogo=0
  if Len(WebLogo)>=5 then isLogo=1

  if Description<>"" then Description=Left(HtmlEncode(Description),250)

  Sql="Update Cnbbr_Link Set Cnbbr_lWebName='"& WebName &"',Cnbbr_lWebUrl='"& WebUrl &"',Cnbbr_lWebLogo='"& WebLogo &"',Cnbbr_lDescription='"& Description &"',Cnbbr_lisLogo="& IsLogo &" where Cnbbr_lID="& TempLID
  conn.execute(Sql)

  if Err then 
     Call AlertInfo("友情链接更新失败，请重新填写！","",0)
  else
   HelpTitle="成功了！"
   HelpInfo="恭喜你！首页友情链接更新成功了！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""Search_Link.asp"">查看所有友情链接</a></LI>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
   HelpList=HelpList & "</Ul>" & Vbcrlf
   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
  end if
end if

End With
%>