shoplinkedit.asp

. 缓存处理技术

<!--#include file="top_cnbbr.asp"-->
<!--#include file="chksession.asp"-->
<!-- #include file="chkUserShop.asp" -->
<!--#include file="inc/mypage.asp"-->

<!--#include file="Cnbbr_UserCenter_Left.asp"-->

<%
  Call Cnbbr_CheckPost(1)
  if MyShopStatus=0 then Call ALertInfo("对不起，店铺当前为免费状态，不能添加友情链接！","",0)
  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)
 
Response.Write Cnbbr_head
With Response
	.Write "<table width="""& Sys_BodyCenterWidth &""" border=""0"" cellspacing=""0"" cellpadding=""0""  align=""center"" class=""td"">" & Vbcrlf
	.Write "  <tr>" & Vbcrlf
	.Write "   <td width=""150"" align=""left"" valign=""top"" class=td>" & Vbcrlf
	 Disp_CnbbrCenterLeft
	.Write "   </td>" & Vbcrlf
	.Write "   <td align=""left"" valign=""top"" class=td>" & Vbcrlf

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||###|[menu]|店铺管理||[menu]||###|[menu]|店铺友情链接管理"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

	.Write "<TABLE cellSpacing=0 cellPadding=0 width=98% align=center border=0>" & Vbcrlf
	.Write "</TR>" & Vbcrlf
	.Write "<TR height=1>" & Vbcrlf
	.Write "<td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></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

  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

    	.Write "</td>" & Vbcrlf
   	.Write "</tr>" & Vbcrlf
   	.Write "</table>" & Vbcrlf
End With
Response.Write Cnbbr_Bottom
%>