Category

Development Platform
Home > SourceCode/Document > Windows Develop > ADO-ODBC > View Code
Ads_add.asp
Package: eat.rar　[view]
Upload User: jisenq
Upload Date: 2014-06-29
Package Size: 7216k
Code Size: 30k
Category:

ADO-ODBC

Development Platform:

ASP/ASPX

Ads_add.asp：Code Content
  1. <!--#include file="../../FS_Inc/Const.asp" -->
  2. <!--#include file="../../FS_Inc/Function.asp"-->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_InterFace/NS_Function.asp" -->
  5. <!--#include file="Cls_Ads.asp"-->
  6. <%'Copyright (c) 2006 Foosun Inc. Code by 邓西
  7. response.buffer=true
  8. Response.CacheControl = "no-cache"
  9. Dim Conn,User_Conn
  10. MF_Default_Conn
  11. MF_Session_TF 
  12. if not MF_Check_Pop_TF("AS_site") then Err_Show
  13. if not MF_Check_Pop_TF("AS001") then Err_Show
  14. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_
  15. Dim Page,cPageNo,str_CurrPath,sRootDir,str_AdOpType,str_ShowType,str_AdsType
  16. str_AdOpType=Request.QueryString("OpType")
  17. Dim o_Ad_Rs,strShowErr,o_Crs,strLock,lng_TempAdID,lng_TempLoopAdID
  19. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  20. if Session("Admin_Is_Super") = 1 then
  21. str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
  22. Else
  23. str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
  24. End if
  26. If str_AdOpType="Add" Then
  27. str_AdOpType="Add"
  28. str_ShowType="<a href=""javascript:if (Ad_Flag()==true){Ad_Save();}"">保存</a>"
  29. Else
  30. str_AdOpType="Update"
  31. str_ShowType="<a href=""javascript:if (Ad_Flag()==true){Ad_Update();}"">修改</a>"
  32. Dim AdId
  33. AdId=Request.QueryString("ID")
  35. If AdId="" or IsNull(AdId) Then
  36. If IsNumeric(AdId)=False Then
  37. strShowErr = "<li>参数错误!</li>"
  38. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  39. Response.end
  40. End If
  41. Else
  42. AdId=Clng(AdId)
  43. Set o_Ad_Rs=Conn.execute("Select * from FS_AD_Info Where AdID="&AdID&"")
  44. If Not o_Ad_Rs.Eof Then
  45. Dim temp_Adname,temp_adType,temp_adloopadname,temp_adloop,temp_adloopfollow,temp_adloopspeed,temp_adloopic,temp_adloopRpic,temp_picH,temp_picW,temp_adlink,temp_adcaptiontxt,temp_loopfactor,temp_loopenddate,temp_maxclicknum,temp_maxshownum,temp_adremarks,Temp_AdID,temp_Txtcontentstr,temp_Txt_Rs,temp_Txt_i,temp_AdTxtColNum
  46. Temp_AdID=o_Ad_Rs("AdID")
  47. temp_Adname=o_Ad_Rs("AdName")
  48. temp_adType=o_Ad_Rs("AdType")
  49. temp_adloop=o_Ad_Rs("AdLoop")
  50. temp_adloopadname=o_Ad_Rs("AdLoopAdID")
  51. temp_adloopfollow=o_Ad_Rs("AdLoopFollow")
  52. temp_adloopspeed=o_Ad_Rs("AdLoopSpeed")
  53. temp_adloopic=o_Ad_Rs("AdPicPath")
  54. temp_adloopRpic=o_Ad_Rs("AdRightPicPath")
  55. temp_picH=o_Ad_Rs("AdPicHeight")
  56. temp_picW=o_Ad_Rs("AdPicWidth")
  57. temp_adlink=o_Ad_Rs("AdLinkAdress")
  58. temp_adcaptiontxt=o_Ad_Rs("AdCaptionTxt")
  59. temp_loopfactor=o_Ad_Rs("AdLoopFactor")
  60. temp_loopenddate=o_Ad_Rs("AdEndDate")
  61. temp_maxclicknum=o_Ad_Rs("AdMaxClickNum")
  62. temp_maxshownum=o_Ad_Rs("AdMaxShowNum")
  63. temp_adremarks=o_Ad_Rs("AdRemarks")
  64. temp_AdTxtColNum=o_Ad_Rs("AdTxtColNum")
  65. Else
  66. strShowErr = "<li>参数错误!</li>"
  67. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  68. Response.end
  69. End If
  70. Set o_Ad_Rs=Nothing
  71. End If
  72. End If
  74. Dim str_AdName,str_AdType,str_AdLoopAdName,str_AdLoopFollow,str_AdLoopSpeed,str_AdLoopPicAdress,str_AdLoopRPicAdress,str_AdPicHeight,str_AdPicWidth,str_AdLinkUrl,str_AdCaptionTxt,str_LoopFactor,str_LoopEndDate,str_AdClickNum,str_AdShowNum,str_AdRemarks,str_IsLoopvalue,str_AdClassID,int_Txt_i,int_AdTxtColNum
  76. str_AdName=Request.Form("AdName")
  77. str_AdType=Clng(Request.Form("AdType"))
  78. str_IsLoopvalue=Request.Form("IsLoopvalue")
  79. str_AdLoopAdName=Request.Form("LoopAdName")
  80. str_AdLoopFollow=Clng(Request.Form("LoopFollow"))
  81. str_AdLoopSpeed=Request.Form("LoopSpeed")
  82. str_AdLoopPicAdress=Request.Form("LoopPicAdress")
  83. str_AdLoopRPicAdress=Request.Form("LoopRPicAdress")
  84. str_AdPicHeight=Request.Form("AdPicHeight")
  85. str_AdPicWidth=Request.Form("AdPicWidth")
  86. str_AdLinkUrl=Request.Form("AdLinkUrl")
  87. str_AdCaptionTxt=Request.Form("AdCaptionTxt")
  88. str_LoopFactor=Clng(Request.Form("LoopFactor"))
  89. str_LoopEndDate=Request.Form("LoopEndDate")
  90. str_AdClickNum=Request.Form("AdMaxClickNum")
  91. str_AdShowNum=Request.Form("AdMaxShowNum")
  92. str_AdRemarks=Request.Form("AdRemarks")
  93. str_AdClassID=Request.Form("AdClassID")
  94. int_AdTxtColNum=Request.Form("AdTxtColNum")
  95. If int_AdTxtColNum="" or IsNull(int_AdTxtColNum) Then
  96. int_AdTxtColNum=0
  97. Else
  98. int_AdTxtColNum=Cint(int_AdTxtColNum)
  99. End If
  100. Dim SubUp,UpRs,ID
  101. SubUp=Request.QueryString("Submit")
  103. If SubUp="SubUp" Then
  104. ID=Request.QueryString("ID")
  105. Set UpRs=CreateObject(G_FS_RS)
  106. UpRs.open "Select * from FS_AD_Info Where AdID="&Clng(ID)&"",Conn,3,3
  107. Set o_Crs=Conn.execute("Select Lock From FS_AD_Class Where AdClassID="&str_AdClassID&"")
  108. If Not o_Crs.Eof Then
  109. strLock=o_Crs("Lock")
  110. Else
  111. strLock=0
  112. End If
  114. UpRs("AdName")=str_AdName
  115. UpRs("AdType")=Clng(str_AdType)
  116. UpRs("AdLoop")=Clng(str_IsLoopvalue)
  117. UpRs("AdLoopAdID")=Clng(str_AdLoopAdName)
  118. UpRs("AdLoopFollow")=Clng(str_AdLoopFollow)
  119. UpRs("AdLoopSpeed")=Clng(str_AdLoopSpeed)
  120. UpRs("AdPicPath")=str_AdLoopPicAdress
  121. UpRs("AdRightPicPath")=str_AdLoopRPicAdress
  122. UpRs("AdPicHeight")=Clng(str_AdPicHeight)
  123. UpRs("AdPicWidth")=Clng(str_AdPicWidth)
  124. UpRs("AdLinkAdress")=str_AdLinkUrl
  125. UpRs("AdCaptionTxt")=str_AdCaptionTxt
  126. UpRs("AdLoopFactor")=Clng(str_LoopFactor)
  127. UpRs("AdEndDate")=str_LoopEndDate
  128. UpRs("AdMaxClickNum")=Clng(str_AdClickNum)
  129. UpRs("AdMaxShowNum")=Clng(str_AdShowNum)
  130. UpRs("AdRemarks")=str_AdRemarks
  131. UpRs("AdClassID")=str_AdClassID
  132. UpRs("AdTxtColNum")=int_AdTxtColNum
  133. If strLock=0 Then
  134. UpRs("AdLock")=0
  135. Else
  136. UpRs("AdLock")=1
  137. End If
  138. UpRs.Update
  139. UpRs.Close
  140. Set UpRs=Nothing
  142. Conn.execute("Delete * From FS_AD_TxtInfo Where AdID="&Clng(ID)&"")
  143. For int_Txt_i=1 to Request.Form("AdTxtContent").Count
  144. Conn.execute("insert into FS_AD_TxtInfo(AdID,AdTxtContent,Css,LinkUrl) values("&Clng(ID)&",'"&Request.Form("AdTxtContent")(int_Txt_i)&"','"&Request.Form("AdTxtCss")(int_Txt_i)&"','"&Request.Form("AdTxtLink")(int_Txt_i)&"')")
  145. Next
  147. Set o_Ad_Rs=Conn.execute("Select AdLoopAdID From FS_AD_Info Where AdID="&ID&"")
  148. If Not o_Ad_Rs.Eof Then 
  149. lng_TempLoopAdID=o_Ad_Rs("AdLoopAdID")
  150. Else
  151. lng_TempLoopAdID=0
  152. End If
  153. Set o_Ad_Rs=Nothing
  155. Select Case Clng(str_AdType)
  156. Case 0 call ShowAds(ID)
  157. Case 1 call NewWindow(ID)
  158. Case 2 call OpenWindow(ID)
  159. Case 3 call FilterAway(ID)
  160. Case 4 call DialogBox(ID)
  161. Case 5 call ClarityBox(ID)
  162. Case 6 call DriftBox(ID)
  163. Case 7 call LeftBottom(ID)
  164. Case 8 call RightBottom(ID)
  165. Case 9 call Couplet(ID)
  166. Case 10 call Cycle(ID,lng_TempLoopAdID)
  167. Case 11 call AdTxt(ID)
  168. End Select
  169. strShowErr = "<li>修改成功!</li>"
  170. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=AdminAdsAds_Manage.asp&Page="&Request.QueryString("OpPage")&"")
  171. Response.end
  173. End If
  175. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  176. if Session("Admin_Is_Super") = 1 then
  177. str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
  178. Else
  179. str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
  180. End if
  182. str_AdsType=Request.Form("Type")
  183. If str_AdsType<>"" Then
  184. Set o_Ad_Rs= CreateObject(G_FS_RS)
  185. o_Ad_Rs.open"select * from FS_AD_Info where 1=0",Conn,3,3
  186. If str_AdsType="Add" Then
  187. Set o_Crs=Conn.execute("Select Lock From FS_AD_Class Where AdClassID="&str_AdClassID&"")
  188. If Not o_Crs.Eof Then
  189. strLock=o_Crs("Lock")
  190. Else
  191. strLock=0
  192. End If
  193. Set o_Crs=Nothing
  195. o_Ad_Rs.addnew
  196. o_Ad_Rs("AdName")=str_AdName
  197. o_Ad_Rs("AdType")=Clng(str_AdType)
  198. o_Ad_Rs("AdLoop")=Clng(str_IsLoopvalue)
  199. o_Ad_Rs("AdLoopAdID")=Clng(str_AdLoopAdName)
  200. o_Ad_Rs("AdLoopFollow")=Clng(str_AdLoopFollow)
  201. o_Ad_Rs("AdLoopSpeed")=Clng(str_AdLoopSpeed)
  202. o_Ad_Rs("AdPicPath")=str_AdLoopPicAdress
  203. o_Ad_Rs("AdRightPicPath")=str_AdLoopRPicAdress
  204. If str_AdPicHeight="" or IsNull(str_AdPicHeight) Then
  205. o_Ad_Rs("AdPicHeight")=0
  206. Else
  207. o_Ad_Rs("AdPicHeight")=str_AdPicHeight
  208. End If
  209. If str_AdPicWidth="" Or IsNull(str_AdPicWidth) Then
  210. o_Ad_Rs("AdPicWidth")=0
  211. Else
  212. o_Ad_Rs("AdPicWidth")=str_AdPicWidth
  213. End If
  214. 'if left(Cstr(str_AdLinkUrl),len("Http://"))=0 then str_AdLinkUrl = "Http://"&str_AdLinkUrl
  215. o_Ad_Rs("AdLinkAdress")=str_AdLinkUrl
  216. o_Ad_Rs("AdCaptionTxt")=str_AdCaptionTxt
  217. o_Ad_Rs("AdLoopFactor")=Clng(str_LoopFactor)
  218. o_Ad_Rs("AdEndDate")=str_LoopEndDate
  219. o_Ad_Rs("AdMaxClickNum")=Clng(str_AdClickNum)
  220. o_Ad_Rs("AdMaxShowNum")=Clng(str_AdShowNum)
  221. o_Ad_Rs("AdRemarks")=str_AdRemarks
  222. o_Ad_Rs("AdAddDate")=Now()
  223. o_Ad_Rs("AdClickNum")=0
  224. o_Ad_Rs("AdClassID")=str_AdClassID
  225. If strLock=0 Then
  226. o_Ad_Rs("AdLock")=0
  227. Else
  228. o_Ad_Rs("AdLock")=1
  229. End If
  230. o_Ad_Rs("AdTxtColNum")=int_AdTxtColNum
  231. o_Ad_Rs.Update
  232. o_Ad_Rs.Close
  233. Set o_Ad_Rs=Nothing
  235. Set o_Ad_Rs=Conn.execute("Select Top 1 AdID,AdLoopAdID From FS_AD_Info Order By AdID Desc")
  236. lng_TempAdID=o_Ad_Rs("AdID")
  237. lng_TempLoopAdID=o_Ad_Rs("AdLoopAdID")
  238. Set o_Ad_Rs=Nothing
  240. For int_Txt_i=1 to Request.Form("AdTxtContent").Count
  241. Conn.execute("insert into FS_AD_TxtInfo(AdID,AdTxtContent,Css,LinkUrl) values("&lng_TempAdID&",'"&Request.Form("AdTxtContent")(int_Txt_i)&"','"&Request.Form("AdTxtCss")(int_Txt_i)&"','"&Request.Form("AdTxtLink")(int_Txt_i)&"')")
  242. Next
  244. Select Case Clng(str_AdType)
  245. Case 0 call ShowAds(lng_TempAdID)
  246. Case 1 call NewWindow(lng_TempAdID)
  247. Case 2 call OpenWindow(lng_TempAdID)
  248. Case 3 call FilterAway(lng_TempAdID)
  249. Case 4 call DialogBox(lng_TempAdID)
  250. Case 5 call ClarityBox(lng_TempAdID)
  251. Case 6 call DriftBox(lng_TempAdID)
  252. Case 7 call LeftBottom(lng_TempAdID)
  253. Case 8 call RightBottom(lng_TempAdID)
  254. Case 9 call Couplet(lng_TempAdID)
  255. Case 10 call Cycle(lng_TempAdID,lng_TempLoopAdID)
  256. Case 11 call AdTxt(lng_TempAdID)
  257. End Select
  258. If Clng(str_IsLoopvalue) = 1 then
  259. Call Cycle(AdID,TempLocation)
  260. End if
  261. strShowErr = "<li>添加成功!</li>"
  262. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=AdminAdsAds_Manage.asp")
  263. Response.end
  264. End If
  265. End If
  266. %>
  267. <html>
  268. <head>
  269. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  270. <title>广告管理___Powered by foosun Inc.</title>
  271. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  272. </head>
  273. <script src="../../FS_Inc/PublicJS.js" language="JavaScript"></script>
  274. <body>
  275. <form action="" name="AddAds" method="post">
  276. <%
  277. Dim str_AdClass_Sql,o_AdClass_Rs,str_AdClass_str,str_Selected,str_ClassType
  278. str_ClassType=Request.QueryString("AdClassID")
  279. str_AdClass_Sql="Select AdClassID,AdClassName,Lock from FS_AD_Class"
  280. Set o_AdClass_Rs=Conn.execute(str_AdClass_Sql)
  281. If Not o_AdClass_Rs.Eof Then
  282. While Not o_AdClass_Rs.Eof
  283. If Clng(str_ClassType)=Clng(o_AdClass_Rs("AdClassID")) Then
  284. str_Selected=" selected"
  285. End If
  286. str_AdClass_str=str_AdClass_str&"<option value="&o_AdClass_Rs("AdClassID")&str_Selected&">"&o_AdClass_Rs("AdClassName")&"</option>"
  287. o_AdClass_Rs.MoveNext
  288. Wend
  289. End If
  290. Set o_AdClass_Rs=Nothing
  291. %>
  292. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  293.   <tr class="hback"> 
  294.     <td colspan="4" class="xingmu">添加广告</td>
  295.   </tr>
  296.   <tr> 
  297.       <td height="8" colspan="4" class="hback"><%=str_ShowType%> | <a href="javascript:history.go(-1);">返回上级</a></td>
  298.   </tr>
  299.   <tr>
  300.     <td height="4" colspan="4" class="hback"><input type="hidden" name="Type" value="<%=str_AdOpType%>"></td>
  301.   </tr>
  302.   <tr>
  303.     <td height="4" align="right" class="hback">广告分类</td>
  304.     <td height="4" colspan="3" class="hback"><select name="AdClassID" size="1" style="width:600px" o>
  305.       <option value="-1">请选择广告栏目,如果不选择(默认不把此广告加入栏目)</option>
  306.       <%=str_AdClass_str%>
  307.     </select></td>
  308.     </tr>
  309.   <tr>
  310.     <td width="12%" height="20" align="right" class="hback">广告名称</td>
  311.     <td width="38%" height="20" align="left" class="hback"><input name="AdName" type="text" id="AdName" size="32" maxlength="20" title="广告名称，必填" value="<%=temp_Adname%>">
  312.       <font color="#FF0000">*必须填写项目</font></td>
  313.     <td width="12%" height="20" align="right" class="hback">广告类型</td>
  314.     <td width="38%" align="left" class="hback"><select name="AdType" id="AdType" style="width:200" onChange="javascript:ChooseType(this.value);">
  315.       <option value="0" <%if Clng(temp_adType)=0 Then Response.write "selected"%>>普通显示广告</option>
  316.       <option value="1" <%if Clng(temp_adType)=1 Then Response.write "selected"%>>弹出新窗口</option>
  317.       <option value="2" <%if Clng(temp_adType)=2 Then Response.write "selected"%>>打开新窗口</option>
  318.       <option value="3" <%if Clng(temp_adType)=3 Then Response.write "selected"%>>渐隐消失</option>
  319.       <option value="4" <%if Clng(temp_adType)=4 Then Response.write "selected"%>>网页对话框</option>
  320.       <option value="5" <%if Clng(temp_adType)=5 Then Response.write "selected"%>>透明对话框</option>
  321.       <option value="6" <%if Clng(temp_adType)=6 Then Response.write "selected"%>>满屏浮动</option>
  322.       <option value="7" <%if Clng(temp_adType)=7 Then Response.write "selected"%>>左下底端</option>
  323.       <option value="8" <%if Clng(temp_adType)=8 Then Response.write "selected"%>>右下底端</option>
  324.       <option value="9" <%if Clng(temp_adType)=9 Then Response.write "selected"%>>对联广告</option>
  325.       <option value="10" <%if Clng(temp_adType)=10 Then Response.write "selected"%>>循环广告</option>      
  326.     </select></td>
  327.   </tr>
  328.   <tr id="tr1">
  329.     <td height="32" align="right" class="hback">循环广告</td>
  330.     <td height="32" align="left" class="hback">
  331.       <input name="IsLoop" type="checkbox" id="IsLoop" value="0" title="将非循环类广告添加到循环广告中循环显示" onClick="javascript:ChooseCycleDis();" <%If temp_adloop=1 Then Response.write "checkend"%>><input type="hidden" name="IsLoopvalue" value="0">
  332.       循环广告位  
  333.     <select name="LoopAdName" title="将非循环广告设置为循环广告后必选" disabled style="width:110">
  334. <%
  335. Dim o_Temp_Loopname
  336. Set o_Temp_Loopname=Conn.execute("select AdID,AdName From FS_AD_Info order by AdID")
  337. If Not o_Temp_Loopname.Eof Then
  338. Response.Write("<option value=""-1""></option>")
  339. While Not o_Temp_Loopname.Eof
  340. Response.Write("<option value="&o_Temp_Loopname("AdID")&">"&o_Temp_Loopname("AdName")&"</option>")
  341. o_Temp_Loopname.MoveNext
  342. Wend
  343. Else
  344. Response.Write("<option value=""-1""></option>")
  345. Response.Write("<option value=""-1"">当前无广告,请添加</option>")
  346. End If
  347. Set o_Temp_Loopname=Nothing
  348. %>
  349.     </select>    </td>
  350.     <td height="32" align="right" class="hback">循环方向</td>
  351.     <td height="32" align="left" class="hback"><select name="LoopFollow" id="select" style="width:70" title="将广告设置为循环广告后必选" disabled>
  352.       <option value="0" <%If temp_adloopfollow=0 Then Response.write "selected"%>>向   上</option>
  353.       <option value="1" <%If temp_adloopfollow=1 Then Response.write "selected"%>>向   下</option>
  354.       <option value="2" <%If temp_adloopfollow=2 Then Response.write "selected"%>>向   左</option>
  355.       <option value="3" <%If temp_adloopfollow=3 Then Response.write "selected"%>>向   右</option>
  356.                         </select>
  357.     循环速度    
  358.     <input name="LoopSpeed" type="text" id="LoopSpeed" size="17" maxlength="20" style="width:70"title="将广告设置为循环广告后必填" disabled value="<%=temp_adloopspeed%>" onKeyUp="if(isNaN(value))execCommand('undo')"  onafterpaste="if(isNaN(value))execCommand('undo')"></td>
  359.   </tr>
  360.   <tr id="tr2">
  361.     <td height="18" align="right" class="hback">图片地址</td>
  362.     <td height="18" align="left" class="hback"><input name="LoopPicAdress" type="text" id="LoopPicAdress" size="19" title="广告图片地址：必选项" value="<%=temp_adloopic%>">
  363.     <input name="SelectPic" type="button" id="SelectPic" value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',400,320,window,document.AddAds.LoopPicAdress);">
  364.     <font color="#FF0000">*必须填写项目</font></td>
  365.     <td height="18" align="right" class="hback">右图地址</td>
  366.     <td height="18" align="left" class="hback"><input name="LoopRPicAdress" type="text" id="LoopRPicAdress" size="19" title="如果广告类型为对联广告，请选择此项，其它类型不用选择" disabled value="<%=temp_adloopRpic%>">
  367.       <input name="SelectRPic" type="button" id="SelectPic2" value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',400,320,window,document.AddAds.LoopRPicAdress);" disabled></td>
  368.   </tr>
  369.   <tr id="tr3">
  370.     <td height="8" align="right" class="hback">图片高度</td>
  371.     <td height="8" align="left" class="hback"><input name="AdPicHeight" type="text" id="AdPicHeight" size="32" maxlength="20" title="图片高度：必选项" value="<%=temp_picH%>" onKeyUp="if(isNaN(value))execCommand('undo')"  onafterpaste="if(isNaN(value))execCommand('undo')">
  372.       <font color="#FF0000">*必须填写项目</font></td>
  373.     <td height="8" align="right" class="hback">图片宽度</td>
  374.     <td height="8" align="left" class="hback"><input name="AdPicWidth" type="text" id="AdPicWidth" size="32" maxlength="20" title="图片宽度：必选项" value="<%=temp_picW%>" onKeyUp="if(isNaN(value))execCommand('undo')"  onafterpaste="if(isNaN(value))execCommand('undo')">
  375.       <font color="#FF0000">*必须填写项目</font></td>
  376.   </tr>
  377.   <tr id="tr4" style="display:none">
  378. <%
  379. If str_AdOpType<>"Add" Then
  380. Dim temp_Ad_TxtID,temp_Content_txt,temp_Css_txt,temp_link_txt
  381. Dim temp_Ad_TxtID1,temp_Content_txt1,temp_Css_txt1,temp_link_txt1
  382. Set temp_Txt_Rs=Conn.execute("select Ad_TxtID,AdID,AdTxtContent,Css,LinkUrl from FS_AD_TxtInfo where AdID="&Temp_AdID&" order by Ad_TxtID")
  383. If Not temp_Txt_Rs.Eof Then
  384. temp_Ad_TxtID1=temp_Txt_Rs("Ad_TxtID")
  385. temp_Content_txt1=temp_Txt_Rs("AdTxtContent")
  386. temp_Css_txt1=temp_Txt_Rs("Css")
  387. temp_link_txt1=temp_Txt_Rs("LinkUrl")
  388. temp_Txt_i=1
  389. temp_Txt_Rs.Movenext
  390. Do While Not temp_Txt_Rs.Eof
  391. temp_Ad_TxtID=temp_Txt_Rs("Ad_TxtID")
  392. temp_Content_txt=temp_Txt_Rs("AdTxtContent")
  393. temp_Css_txt=temp_Txt_Rs("Css")
  394. temp_link_txt=temp_Txt_Rs("LinkUrl")
  396. temp_Txtcontentstr=temp_Txtcontentstr&"<tr><td> 显示文本 <input name=""AdTxtContent"" type=""text"" size=""30"" maxlength=""200"" value="""&temp_Content_txt&"""> 样式 <input name=""AdTxtCss"" type=""text"" size=""7"" maxlength=""40"" value="""&temp_Css_txt&"""> 链接地址 <input name=""AdTxtLink"" type=""text"" value="""&temp_Txt_Rs("LinkUrl")&""" size=""16"" maxlength=""100""><input name=""TxtID"" type=""hidden"" value="""&temp_Ad_TxtID&"""> <a href=""#"" onclick='f_delete(this.parentElement.parentElement)'>删除</a> </td></tr>"
  397. temp_Txt_Rs.Movenext
  398. temp_Txt_i=temp_Txt_i+1
  399. Loop
  400. End If
  401. Set temp_Txt_Rs=Nothing
  402. End If
  403. %>
  404.     <td height="4" align="right" valign="top" class="hback">广告内容<br>
  405.       (<a href=javascript:f_add()><img src="/admin/images/add.gif" border="0" alt="点击添加更多文字广告"></a>)
  406.       </td>
  407.     <td height="4" colspan="3" align="left" class="hback">
  408. <table width="641" id="tb1">
  409.   <tr><td>显示文本
  410.  <input name="AdTxtContent" type="text" size="30" maxlength="200" value="<%=temp_Content_txt1%>">
  411.  样式 
  412.       <input name="AdTxtCss" type="text" size="7" maxlength="40" value="<%=temp_Css_txt1%>">
  413.       链接地址
  414.       <input name="AdTxtLink" type="text" id="AdTxtLink" value="<%=temp_link_txt1%>" size="16" maxlength="100">
  415.       列数
  416.       <input name="AdTxtColNum" type="text" id="AdTxtColNum" value="<%=temp_AdTxtColNum%>" size="4" maxlength="2" onKeyUp="if(isNaN(value))execCommand('undo')"  onafterpaste="if(isNaN(value))execCommand('undo')"></td>
  417.   </tr><%=temp_Txtcontentstr%></table>
  418.       <input name="TxtID" type="hidden" value="<%=temp_Ad_TxtID1%>"></td></tr>
  419.   <tr id="tr6">
  420.     <td height="18" align="right" class="hback">链接地址</td>
  421.     <td height="18" align="left" class="hback"><input name="AdLinkUrl" type="text" id="AdLinkUrl" size="32" maxlength="200" title="广告链接地址，必填项" value="<%=temp_adlink%>">
  422.       <font color="#FF0000">*必须填写项目</font></td>
  423.     <td height="18" align="right" class="hback">说明文字</td>
  424.     <td height="18" align="left" class="hback"><input name="AdCaptionTxt" type="text" size="32" maxlength="100" title="广告说明文字，可选项" value="<%=temp_adcaptiontxt%>"></td>
  425.   </tr>
  426.   <tr>
  427.     <td height="18" align="right" class="hback">显示条件</td>
  428.     <td height="18" align="left" class="hback"><input name="LoopFactor" type="radio" title="将此广告设置为不受任何条件限制而永不过期。选择此项后，最大点击次数、最大显示次数和截止日期不用填写" value="0" onClick="javascript:LoopFactorClick('1');" <%If temp_loopfactor=0 Then Response.write "checked"%>>    
  429.     无条件显示
  430.       <input type="radio" name="LoopFactor" value="1" title="将广告设置为有条件显示后,此广告将在满足最大点击次数、最大显示次数和截止日期中的任何一项后失效" onClick="javascript:LoopFactorClick('2');" <%If temp_loopfactor=1 Then Response.write "checked"%>>
  431. 有条件显示</td>
  432.     <td height="18" align="right" class="hback">截止日期</td>
  433.     <td height="18" align="left" class="hback"><input name="LoopEndDate" type="text" id="LoopEndDate" size="19" disabled value="<%=temp_loopenddate%>" readonly>
  434.       <input name="SelectDate" type="button" id="SelectDate" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.AddAds.LoopEndDate);" disabled></td>
  435.   </tr>
  436.   <tr>
  437.     <td height="8" align="right" class="hback">点击次数</td>
  438.     <td height="8" align="left" class="hback"><input name="AdMaxClickNum" type="text" id="AdClickNum" size="32" maxlength="30" title="设置广告的最大点击数量,广告将在点击次数达到此数量后失效。如果不设置此项，请置空" disabled value="<%=temp_maxclicknum%>" onKeyUp="if(isNaN(value))execCommand('undo')"  onafterpaste="if(isNaN(value))execCommand('undo')"></td>
  439.     <td height="8" align="right" class="hback">显示次数</td>
  440.     <td height="8" align="left" class="hback"><input name="AdMaxShowNum" type="text" id="AdShowNum" size="32" maxlength="30" title="设置广告的最大显示数量,广告将在显示次数达到此数量后失效。如果不设置此项，请置空" disabled value="<%=temp_maxshownum%>" onKeyUp="if(isNaN(value))execCommand('undo')"  onafterpaste="if(isNaN(value))execCommand('undo')"></td>
  441.   </tr>
  442.   <tr>
  443.     <td height="9" align="right" valign="top" class="hback">广告备注</td>
  444.     <td height="9" colspan="3" align="left" class="hback"><textarea name="AdRemarks" cols="98" rows="5" title="广告备注,仅供后台查阅,不做前台调用"><%=temp_adremarks%></textarea></td>
  445.   </tr>
  446. </table>
  447. </form>
  448. </body>
  449. </html>
  450. <script language="javascript">
  451. function Ad_Flag()
  452. {
  453. if (document.AddAds.AdName.value=="")
  454. {
  455. alert("请输入广告名称");
  456. document.AddAds.AdName.focus();
  457. return false;
  458. }
  459. if (parseInt(document.AddAds.AdType.value)==11)
  460. {
  461. var _arr=document.all.AdTxtContent
  462.    if (typeof(_arr.length)=="undefined")
  463.    {
  464. if (_arr.value=="")
  465. {
  466. alert("请输入文字显示内容");
  467. _arr.focus();
  468. return false;
  469. }
  470.    }
  471.    else
  472.    {
  473. for (var j=0;j<_arr.length;j++)
  474. {
  475. if (_arr[j].value=="")
  476. {
  477. alert("请输入文字显示内容");
  478. _arr[j].focus();
  479. return false;
  480. }
  481. }
  482. }
  483. }
  484. else
  485. {
  486. if (document.AddAds.LoopPicAdress.value=="")
  487. {
  488. alert("请输入图片地址");
  489. document.AddAds.LoopPicAdress.focus();
  490. return false;
  491. }
  492. if (parseInt(document.AddAds.AdType.value)==9)
  493. {
  494. if (document.AddAds.LoopRPicAdress.value=="")
  495. {
  496. alert("请输入图片地址");
  497. document.AddAds.LoopRPicAdress.focus();
  498. return false;
  499. }
  500. }
  501. if (parseInt(document.AddAds.IsLoopvalue.value)==1)
  502. {
  503. if (document.AddAds.LoopSpeed.value=="")
  504. {
  505. alert("请输入循环速度");
  506. document.AddAds.LoopSpeed.focus();
  507. return false;
  508. }
  509. else
  510. {
  511. if (isNaN(document.AddAds.LoopSpeed.value))
  512. {
  513. alert("循环速度必须为整数");
  514. document.AddAds.LoopSpeed.value="";
  515. document.AddAds.LoopSpeed.focus();
  516. return false;
  517. }
  518. else
  519. {
  520. if (parseInt(document.AddAds.LoopSpeed.value)<0)
  521. {
  522. alert("循环速度必须为整数");
  523. document.AddAds.LoopSpeed.focus();
  524. document.AddAds.LoopSpeed.value="";
  525. return false;
  526. }
  527. }
  528. }
  529. }
  530. if (document.AddAds.AdPicHeight.value=="")
  531. {
  532. alert("请输入图片高度");
  533. document.AddAds.AdPicHeight.focus();
  534. return false;
  535. }
  536. else
  537. {
  538. if (isNaN(document.AddAds.AdPicHeight.value)==true)
  539. {
  540. alert("图片高度必须为整数");
  541. document.AddAds.AdPicHeight.value="";
  542. document.AddAds.AdPicHeight.focus();
  543. return false;
  544. }
  545. else
  546. {
  547. if (parseInt(document.AddAds.AdPicHeight.value)<0)
  548. {
  549. alert("图片高度必须为整数");
  550. document.AddAds.AdPicHeight.value="";
  551. document.AddAds.AdPicHeight.focus();
  552. return false;
  553. }
  554. }
  555. }
  556. if (document.AddAds.AdPicWidth.value=="")
  557. {
  558. alert("请输入图片宽度");
  559. document.AddAds.AdPicWidth.focus();
  560. return false;
  561. }
  562. else
  563. {
  564. if (isNaN(document.AddAds.AdPicWidth.value)==true)
  565. {
  566. alert("图片宽度必须为整数");
  567. document.AddAds.AdPicWidth.value="";
  568. document.AddAds.AdPicWidth.focus();
  569. return false;
  570. }
  571. else
  572. {
  573. if (parseInt(document.AddAds.AdPicWidth.value)<0)
  574. {
  575. alert("图片宽度必须为整数");
  576. document.AddAds.AdPicWidth.value="";
  577. document.AddAds.AdPicWidth.focus();
  578. return false;
  579. }
  580. }
  581. }
  582. if (document.AddAds.AdLinkUrl.value=="")
  583. {
  584. alert("请输入链接地址");
  585. document.AddAds.AdLinkUrl.focus();
  586. return false;
  587. }
  588. }
  589. if (document.AddAds.AdClickNum.value!="")
  590. {
  591. if (isNaN(document.AddAds.AdClickNum.value)==true)
  592. {
  593. alert("点击次数必须为整数");
  594. document.AddAds.AdClickNum.value="";
  595. document.AddAds.AdClickNum.focus();
  596. return false;
  597. }
  598. else
  599. {
  600. if (parseInt(document.AddAds.AdClickNum.value)<0)
  601. {
  602. alert("点击次数必须为整数");
  603. document.AddAds.AdClickNum.value="";
  604. document.AddAds.AdClickNum.focus();
  605. return false;
  606. }
  607. }
  608. }
  609. if (document.AddAds.AdShowNum.value!="")
  610. {
  611. if (isNaN(document.AddAds.AdShowNum.value)==true)
  612. {
  613. alert("显示次数必须为整数");
  614. document.AddAds.AdShowNum.value="";
  615. document.AddAds.AdShowNum.focus();
  616. return false;
  617. }
  618. else
  619. {
  620. if (parseInt(document.AddAds.AdShowNum.value)<0)
  621. {
  622. alert("显示次数必须为整数");
  623. document.AddAds.AdShowNum.value="";
  624. document.AddAds.AdShowNum.focus();
  625. return false;
  626. }
  627. }
  628. }
  629. return true;
  630. }
  631. function LoopFactorClick(type)
  632. {
  633. if(type==1)
  634. {
  635. document.AddAds.LoopEndDate.disabled=true;
  636. document.AddAds.SelectDate.disabled=true;
  637. document.AddAds.AdClickNum.disabled=true;
  638. document.AddAds.AdShowNum.disabled=true;
  639. document.AddAds.LoopFactor.value=1;
  640. }
  641. else
  642. {
  643. document.AddAds.LoopEndDate.disabled=false;
  644. document.AddAds.SelectDate.disabled=false;
  645. document.AddAds.AdClickNum.disabled=false;
  646. document.AddAds.LoopFactor.value=0;
  647. document.AddAds.AdShowNum.disabled=false;
  648. }
  649. }
  650. function ChooseType(type)
  651. {
  652. switch (parseInt(type))
  653. {
  654. case 9:
  655. document.AddAds.LoopRPicAdress.disabled=false;
  656. document.AddAds.SelectRPic.disabled=false;
  657. show();
  658. break;
  659. case 0:
  660. document.AddAds.LoopRPicAdress.disabled=true;
  661. document.AddAds.SelectRPic.disabled=true;
  662. document.AddAds.IsLoop.disabled=true;
  663. document.AddAds.LoopAdName.disabled=true;
  664. document.AddAds.LoopFollow.disabled=false;
  665. document.AddAds.LoopSpeed.disabled=false;
  666. show();
  667. break;
  668. case 11:
  669. document.all.tr1.style.display="none";
  670. document.all.tr2.style.display="none";
  671. document.all.tr3.style.display="none";
  672. document.all.tr4.style.display="";
  673. document.all.tr6.style.display="none";
  674. break;
  675. default:
  676. document.AddAds.IsLoop.disabled=false;
  677. document.AddAds.LoopAdName.disabled=true;
  678. document.AddAds.LoopFollow.disabled=true;
  679. document.AddAds.LoopSpeed.disabled=true;
  680. document.AddAds.LoopRPicAdress.disabled=true;
  681. document.AddAds.SelectRPic.disabled=true;
  682. document.AddAds.IsLoop.checked=false;
  683. show();
  684. break;
  685. }
  686. }
  687. function ChooseCycleDis()
  688. {
  689. if (document.AddAds.IsLoop.checked==true)
  690. {
  691. document.AddAds.LoopFollow.disabled=false;
  692. document.AddAds.LoopSpeed.disabled=false;
  693. document.AddAds.LoopAdName.disabled=false;
  694. document.AddAds.IsLoopvalue.value=1;
  695. }
  696. else
  697. {
  698. document.AddAds.LoopFollow.disabled=true;
  699. document.AddAds.LoopSpeed.disabled=true;
  700. document.AddAds.LoopAdName.disabled=true;
  701. document.AddAds.IsLoopvalue.value=0;
  702. }
  703. }
  704. function Ad_Save()
  705. {
  706. document.AddAds.submit();
  707. }
  708. function Ad_Update()
  709. {
  710. document.AddAds.action="?Submit=SubUp&ID=<%=Temp_AdID%>&OpPage=<%=Request.QueryString("OpPage")%>";
  711. document.AddAds.submit();
  712. }
  713. function show()
  714. {
  715. document.all.tr1.style.display="";
  716. document.all.tr2.style.display="";
  717. document.all.tr3.style.display="";
  718. document.all.tr4.style.display="none";
  719. document.all.tr6.style.display="";
  720. }
  721. function f_add()
  722. {
  723.     var _tbobj=document.all.tb1
  724. var _trobj=_tbobj.rows
  725. if (_trobj.length>9)
  726. {
  727. return;
  728. } 
  729. var _newRow=_tbobj.insertRow(_tbobj.rows.length)
  730. var _newCell=_newRow.insertCell(0)
  731. _newCell.innerHTML="<tr><td> 显示文本 <input name=AdTxtContent type=text id=AdTxtContent size=30 maxlength=200> 样式 <input name=AdTxtCss type=text size=7 maxlength=40> 链接地址 <input name=AdTxtLink type=text id=AdTxtLink size=16 maxlength=100><a href='#'onclick='f_delete(this.parentElement.parentElement)'> 删除 </a></td></tr>"; 
  732. _newCell=_newRow.insertCell(1) 
  733. }
  734. function f_delete(_aobj)
  735. {
  736. var _tbobj=document.all.tb1
  737. var _trobj=_tbobj.rows
  738. var _deltr=_aobj
  739.    for(var i=0;i<_trobj.length;i++)
  740.    {
  741.     if (_deltr==_trobj[i])
  742. {
  743. _tbobj.deleteRow(i)
  744. break;
  745. }
  746.    }
  747. }
  748. </script>
  749. <%
  750. If temp_loopfactor=1 Then Response.write "<script language=""javascript"">LoopFactorClick('2');</script>"
  751. If Clng(temp_adType)=11 Then Response.write "<script language=""javascript"">ChooseType(11);</script>"
  752. Sub Alert(Msg)
  753. Response.write "<script language=""javascript"">alert('"&Msg&"');history.go(-1);</script>"
  754. End Sub
  755. %>
  756. <%
  757. Set Conn=nothing
  758. %><!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->