shoplinkadd.asp

. 缓存处理技术

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

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

<%
if MyShopStatus=0 then Call ALertInfo("对不起，店铺当前为免费状态，不能添加友情链接！","",0)
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

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

if Act<>"addlink" then


  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=1 class=tablebg>"& vbcrlf
  .Write"<form name=linkadd 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=""""></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=""""></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=""""></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=""""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr class=titletd> "& vbcrlf
  .Write"   <td colspan=2 width=100% height=28 align=center><input name=act type=hidden value=""addlink""><input name=submit type=submit value=""添加店铺链接""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" </form>"& Vbcrlf
  .Write"</table>" & Vbcrlf


else
  Call Cnbbr_CheckPost(1)
  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="Insert Into Cnbbr_Link (Cnbbr_lWebName,Cnbbr_lWebUrl,Cnbbr_lWebLogo,Cnbbr_lDescription,Cnbbr_lisLogo,Cnbbr_lOwnerID) values ('"& WEBNAME &"','"& WEBURL &"','"& WEBLOGO&"','"& DESCRIPTION &"',"& isLogo &","& Request.Cookies(Super_User)("Uid") &")"
  conn.execute(Sql)

  if Err then 
     Call AlertInfo("友情链接添加失败，请重新填写！","",0)
  else
   HelpTitle="成功了！"
   HelpInfo="恭喜你！店铺友情链接添加成功了！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""ShopLinkAdd.asp"">继续添加友情链接</a></LI>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""ShopLinkEdit.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
%>