开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
other_manage.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：21k
源码类别：

数据库编程

开发平台：

ASP/ASPX

other_manage.asp：源码内容
  1. <% Option Explicit %>
  2. <%'Copyright (c) 2006 Foosun Inc. Code by 邓西%> 
  3. <!--#include file="../../FS_Inc/Const.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp"-->
  5. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  6. <!--#include file="../../FS_InterFace/NS_Function.asp" -->
  7. <!--#include file="../../FS_Inc/Func_page.asp" -->
  8. <%
  9. response.buffer=true
  10. Response.CacheControl = "no-cache"
  11. Dim Conn,User_Conn
  12. MF_Default_Conn
  13. MF_Session_TF
  14. if not MF_Check_Pop_TF("NS_Genal") then Err_Show
  15. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,strShowErr,showMorePageGo_Type_
  16. Dim Page,cPageNo
  17. Call MF_Check_Pop_TF("NS_Class_000001")
  18. int_RPP=30 '设置每页显示数目
  19. int_showNumberLink_=8 '数字导航显示数目
  20. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  21. str_nonLinkColor_="#999999" '非热链接颜色
  22. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  23. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  24. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  25. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  26. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  27. toL_="<font face=webdings title=""最后一页"">:</font>" '尾页
  28.  
  29. Dim OM_OP,OM_OP_Sql_Str,obj_OM_OP_Rs,OM_OP_ID,obj_OM_OP_Rs_EofFlag,obj_OM_OP_Up_Rs,OM_OP_IDFlag,ShowList
  30. OM_OP=Request.QueryString("OM_OP")
  31. obj_OM_OP_Rs_EofFlag=False
  32. If OM_OP="" Or Isnull(OM_OP) Then
  33. OM_OP="OM_ShowList"
  34. End If
  35. OM_OP_ID=Request.QueryString("ID")
  36. If IsNull(OM_OP_ID) or OM_OP_ID="" Then
  37. OM_OP_IDFlag=True
  38. Else
  39. OM_OP_IDFlag=False
  40. End If
  42. If OM_OP="S_AddNew" Then
  43. Dim OM_Temp_Add_Type,OM_Temp_Add_Name,OM_Temp_Add_LinkUrl,OM_Temp_Add_Email,OM_Temp_Add_Explanation,Re_ID,Up_Action
  44. OM_Temp_Add_Type=Cint(Request.Form("Sel_Type"))
  45. Up_Action=Request.QueryString("Up_Action")
  46. OM_Temp_Add_Name=Replace(Replace(Request.Form("Txt_Name"),"<","&lt;"),">","&gt;")
  47. OM_Temp_Add_LinkUrl=Replace(Replace(Request.Form("Txt_LinkUrl"),"<","&lt;"),">","&gt;")
  48. OM_Temp_Add_Email=Replace(Replace(Request.Form("Txt_Email"),"<","&lt;"),">","&gt;")
  49. OM_Temp_Add_Explanation=Replace(Replace(Request.Form("Txt_Explanation"),"<","&lt;"),">","&gt;")
  51. If Up_Action="Submit" Then
  52. Conn.execute("Update FS_NS_General Set G_Type="&OM_Temp_Add_Type&",G_Name='"&OM_Temp_Add_Name&"',G_URL='"&OM_Temp_Add_LinkUrl&"',G_Email='"&OM_Temp_Add_Email&"',G_Content='"&OM_Temp_Add_Explanation&"' where GID="&Cint(OM_OP_ID)&"")
  53. strShowErr = "<li>修改成功</li>"
  54. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  55. Response.end
  56. Else
  57. Conn.Execute("insert into FS_NS_General(G_Type,G_Name,G_URL,G_Email,G_Content,isLock) values ("&OM_Temp_Add_Type&",'"&OM_Temp_Add_Name&"','"&OM_Temp_Add_LinkUrl&"','"&OM_Temp_Add_Email&"','"&OM_Temp_Add_Explanation&"',0)")
  58. strShowErr = "<li>添加成功</li>"
  59. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  60. Response.end
  61. End If
  62. End If
  63. If OM_OP="S_DelAll" Then
  64. Conn.execute("Delete From FS_NS_General")
  65. strShowErr = "<li>删除成功</li>"
  66. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=adminnewsother_manage.asp?OM_OP=OM_ShowList")
  67. Response.end
  68. End If
  69. %>
  70. <html>
  71. <head>
  72. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  73. <title>常规管理___Powered by foosun Inc.</title>
  74. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  75. </head>
  76. <body>
  77. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  78.   <tr class="hback"> 
  79.     <td class="xingmu"><a href="#" onmouseover="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align='center'>FoosunCMS4.0<br> Code by 邓西 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>常规管理</strong></a></td>
  80.   </tr>
  81.   <tr> 
  82.       <td width="100%" height="18" class="hback"><div align="left"> <a href="javascript:Sy();">管理首页</a> 
  83. |<a href="javascript:KeyWord();"> 关键字</a> | <a href="javascript:Source();">来源</a> | 
  84. <a href="javascript:ZouZe();">作者</a> | <a href="javascript:LinkUrl();">内部链接</a> 
  85. | 
  86. <a href="javascript:AddOne();">添加</a> | 
  87. <a href="javascript:DelAll();">删除全部</a>  </div></td>
  88.   </tr>
  89. </table>
  91. <div align="center">
  92. <%
  93. Dim OM_OP_Up_Type,OM_OP_Up_Name,OM_OP_Up_Email,OM_OP_Up_Content,OM_OP_Up_Url,Temp_Action
  94. If OM_OP_IDFlag=False Then
  95. Set obj_OM_OP_Up_Rs=Conn.Execute("SELECT G_Type,G_Name,G_URL,G_Email,G_Content from FS_NS_General where GID="&Cint(OM_OP_ID)&"")
  96. If Not obj_OM_OP_Up_Rs.Eof Then
  97. OM_OP_Up_Type=Cint(obj_OM_OP_Up_Rs("G_Type"))
  98. OM_OP_Up_Name=obj_OM_OP_Up_Rs("G_Name")
  99. OM_OP_Up_Url=obj_OM_OP_Up_Rs("G_URL")
  100. OM_OP_Up_Email=obj_OM_OP_Up_Rs("G_Email")
  101. OM_OP_Up_Content=obj_OM_OP_Up_Rs("G_Content")
  102. End If
  103. Set obj_OM_OP_Up_Rs=Nothing
  104. Temp_Action="&Up_Action=Submit&ID="&OM_OP_ID
  105. End If
  106. %>
  107. <table width="98%" border="0" cellpadding="5" cellspacing="1" class="table" id="OM_AddNew" style="display:none">
  108.   <tr class="hback"> 
  109.     <td class="xingmu" colspan="2">添加</td>
  110.   </tr>
  111.  <form name="form_OM_AddNew" id="form_OM_AddNew" method="post" action="other_manage.asp?OM_OP=S_AddNew<%=Temp_Action%>" onSubmit="javascript:return Check_Type();">
  112.   <tr> 
  113.       <td width="290" height="29" class="hback" align="right">类型</td>
  114.       <td width="652" height="29" class="hback">
  115. <select size="1" name="Sel_Type" onChange="javascript:SelectOpType(this.value);">
  116. <% If IsNull(OM_OP_ID)=True Or OM_OP_ID="" Then %>
  117. <option value="0" selected>请选择</option>
  118. <% End If %>
  119. <option value="1" <% If OM_OP_Up_Type=1 Then Response.write "selected" %>>关键字</option>
  120. <option value="2" <% If OM_OP_Up_Type=2 Then Response.write "selected" %>>来源</option>
  121. <option value="3" <% If OM_OP_Up_Type=3 Then Response.write "selected" %>>作者</option>
  122. <option value="4" <% If OM_OP_Up_Type=4 Then Response.write "selected" %>>内部连接</option>
  123. </select></td>
  124.   </tr>
  125. <tr id="Tr_Title" style="display:none">
  126.       <td height="28" class="hback" align="right">标题</td>
  127.       <td height="28" class="hback">
  128. <input type="text" name="Txt_Name" size="50" maxlength="50" value="<%=OM_OP_Up_Name%>">(<font color=red size=2>*</font>)</td>
  129.     </tr>
  130. <tr id="Tr_Url" style="display:none">
  131.       <td height="-5" class="hback" align="right">链接地址</td>
  132.       <td height="-5" class="hback">
  133. <input type="text" name="Txt_LinkUrl" size="50" maxlength="50" value="<%=OM_OP_Up_Url%>"></td>
  134.     </tr>   
  135.   <tr id="Tr_Email" style="display:none">
  136.       <td height="-5" class="hback" align="right">电子邮件</td>
  137.       <td height="-5" class="hback">
  138. <input type="text" name="Txt_Email" size="50" maxlength="50" value="<%=OM_OP_Up_Email%>"></td>
  139.     </tr>
  140. <tr id="Tr_Explanation" style="display:none"> 
  141.       <td height="-5" class="hback" align="right">说明</td>
  142.       <td height="-5" class="hback">
  143. <textarea rows="4" name="Txt_Explanation" cols="50" maxlength="200"><%=OM_OP_Up_Content%></textarea></td>
  144.     </tr>
  145. <tr id="Tr_SubMit" style="display:none">
  146.       <td  height="-5" class="hback" align="center" colspan="2">
  147. <input type="submit" value=" 提 交 " name="But_AddNew">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  148. <input type="reset" value=" 重 置 " name="But_Clear">(注：(<font color=red size=2>*</font>)为必填)</td>
  149.     </tr>
  150.   </form>
  151. </table>
  152. <table width="98%" border="0" cellpadding="5" cellspacing="1" class="table" id="OM_ShowList" style="display:none">
  153.   <tr class="hback"> 
  154.     <td class="xingmu" width="20%" align="center">标题</td>
  155.     <td class="xingmu" width="8%" align="center">类型</td>
  156.     <td class="xingmu" width="21%" align="center">链接地址</td>
  157.     <td class="xingmu" width="20%" align="center">电子邮件</td>
  158.     <td class="xingmu" width="5%" align="center">状态</td>
  159.     <td class="xingmu" width="26%" align="center">操作</td>
  160.   </tr>
  161.   <form name="form_OM_OP" id="form_OM_OP" method="post" action="other_manage.asp?OM_OP=OM_ShowList&OM_OP_P=P"><input name="Hi_OP_Type" type="hidden" value="">
  162. <%
  163. If OM_OP="OM_ShowList" Then
  164. Dim OM_OP_Action,OM_OP_P
  165. OM_OP_Action=Request.QueryString("Action")
  166. OM_OP_P=Request.QueryString("OM_OP_P")
  167. If OM_OP_Action="Lock" Then
  168. Conn.execute("Update FS_NS_General Set isLock=1 Where GID="&Cint(OM_OP_ID)&"")
  169. 'Response.Write("<script language=javascript>alert('"&Request.QueryString("ShowList")&"')<script>")
  170. 'Response.End()
  172. End If
  173. If OM_OP_Action="UnLock" Then
  174. Conn.execute("Update FS_NS_General Set isLock=0 Where GID="&Cint(OM_OP_ID)&"")
  175. End If
  176. If OM_OP_Action="DelOne" Then
  177. Conn.execute("Delete * From FS_NS_General Where GID="&Cint(OM_OP_ID)&"")
  178. strShowErr = "<li>删除成功</li>"
  179. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  180. Response.end
  181. End If
  182. If OM_OP_P="P" Then
  183. Dim OM_OP_Temp_P_Type,OM_OP_Temp_P_ID,OM_OP_IOM_OP_Temp_P_Flag,OM_OP_IOM_OP_Temp_P_I,i,int_tempID
  184. OM_OP_Temp_P_Type=Request.Form("hi_OP_Type")
  185. OM_OP_Temp_P_ID=Request.Form("Che_OPType")
  186. If OM_OP_Temp_P_ID="" or IsNull(OM_OP_Temp_P_ID) Then
  187. strShowErr = "<li>请选择要批量操作的内容!</li>"
  188. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  189. Response.end
  190. End If
  191. 'int_tempID=Split(OM_OP_Temp_P_ID,",")
  192. ' For i=1 To Ubound(OM_OP_Temp_P_ID)
  193. ' int_tempID=int_tempID&OM_OP_Temp_P_ID(i)
  194. ' Next
  195. 'Response.Write(int_tempID)
  196. 'Response.End()
  197. Select Case OM_OP_Temp_P_Type
  198. Case "P_Lock"
  199. Conn.execute("Update FS_NS_General Set isLock=1 Where GID in("&OM_OP_Temp_P_ID&")")
  200. strShowErr = "<li>批量锁定成功</li>"
  201. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  202. Response.end
  203. Case "P_UnLock"
  204. Conn.execute("Update FS_NS_General Set isLock=0 Where GID in("&OM_OP_Temp_P_ID&")")
  205. strShowErr = "<li>批量解锁成功</li>"
  206. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  207. Response.end
  208. Case "P_Del"
  209. Conn.execute("Delete * From FS_NS_General Where GID in("&OM_OP_Temp_P_ID&")")
  210. strShowErr = "<li>批量删除成功</li>"
  211. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=adminnewsother_manage.asp?OM_OP=OM_ShowList")
  212. Response.end
  213. End Select
  214. End If
  215. ShowList=Request.QueryString("ShowList")
  216. If ShowList="" or Isnull(ShowList) Then
  217. OM_OP_Sql_Str="Select GID,G_Type,G_Name,G_URL,G_Email,isLock from FS_NS_General Order By G_Type"
  218. Else
  219. Select Case Cstr(ShowList)
  220. Case "Keyword"
  221. OM_OP_Sql_Str="Select GID,G_Type,G_Name,G_URL,G_Email,isLock from FS_NS_General Where G_Type=1"
  222. Case "Source"
  223. OM_OP_Sql_Str="Select GID,G_Type,G_Name,G_URL,G_Email,isLock from FS_NS_General Where G_Type=2"
  224. Case "ZouZe"
  225. OM_OP_Sql_Str="Select GID,G_Type,G_Name,G_URL,G_Email,isLock from FS_NS_General Where G_Type=3"
  226. Case "LinkUrl"
  227. OM_OP_Sql_Str="Select GID,G_Type,G_Name,G_URL,G_Email,isLock from FS_NS_General Where G_Type=4"
  228. End Select
  229. End If
  230. Set obj_OM_OP_Rs=CreateObject(G_FS_RS)
  232. obj_OM_OP_Rs.Open OM_OP_Sql_Str,Conn,1,1
  234. Dim OM_Temp_Type,OM_Temp_IsLock,OM_Temp_Url,OM_Temp_Email,OM_Temp_Name
  236. If Not obj_OM_OP_Rs.Eof Then
  237. obj_OM_OP_Rs_EofFlag=True
  239. obj_OM_OP_Rs.PageSize=int_RPP
  240. cPageNo=NoSqlHack(Request.QueryString("page"))
  241. If cPageNo="" Then cPageNo = 1
  242. If not isnumeric(cPageNo) Then cPageNo = 1
  243. cPageNo = Clng(cPageNo)
  244. If cPageNo>obj_OM_OP_Rs.PageCount Then cPageNo=obj_OM_OP_Rs.PageCount 
  245. If cPageNo<=0 Then cPageNo=1
  246. obj_OM_OP_Rs.AbsolutePage=cPageNo
  248. For int_Start=1 TO int_RPP  
  249. %>
  250.   <tr>
  251. <%
  252. OM_Temp_Name=obj_OM_OP_Rs("G_Name")
  253. OM_Temp_Type=Cint(obj_OM_OP_Rs("G_Type"))
  254. Select Case OM_Temp_Type
  255. Case 1
  256. OM_Temp_Type="关键字"
  257. Case 2
  258. OM_Temp_Type="来源"
  259. Case 3
  260. OM_Temp_Type="作者"
  261. Case 4
  262. OM_Temp_Type="内部链接"
  263. End Select
  264. OM_Temp_IsLock=Cint(obj_OM_OP_Rs("isLock"))
  265. Select Case OM_Temp_IsLock
  266. Case 0
  267. OM_Temp_IsLock="正常"
  268. Case 1
  269. OM_Temp_IsLock="<font color=""red"">锁定</font>"
  270. End Select 
  271. If obj_OM_OP_Rs("G_URL")="" or Isnull(obj_OM_OP_Rs("G_URL")) then
  272. OM_Temp_Url="-"
  273. Else
  274. OM_Temp_Url=obj_OM_OP_Rs("G_URL")
  275. End If
  276. If obj_OM_OP_Rs("G_Email")="" or Isnull(obj_OM_OP_Rs("G_Email")) Then
  277. OM_Temp_Email="-"
  278. Else
  279. OM_Temp_Email=obj_OM_OP_Rs("G_Email")
  280. End If
  281. %>
  282.     <td class="hback" align="center" height="20"><%=OM_Temp_Name%></td>
  283.     <td class="hback" align="center"><%=OM_Temp_Type%></td>
  284.     <td class="hback" align="center"><%=OM_Temp_Url%></td>
  285.     <td class="hback" align="center"><%=OM_Temp_Email%></td>
  286.     <td class="hback" align="center"><%=OM_Temp_IsLock%></td>
  287.     <td class="hback" align="center"><a href="javascript:Update('<%=obj_OM_OP_Rs("GID")%>');">修改</a> | <a href="javascript:DelOne('<%=obj_OM_OP_Rs("GID")%>');">删除</a> | <a href="javascript:Lock('<%=obj_OM_OP_Rs("GID")%>');">锁定</a> | <a href="javascript:UnLock('<%=obj_OM_OP_Rs("GID")%>');">解锁</a>  |<input type="checkbox" value="<%=obj_OM_OP_Rs("GID")%>" name="Che_OPType"></td>
  288.   </tr>
  289. <%
  290. obj_OM_OP_Rs.MoveNext
  291. If obj_OM_OP_Rs.Eof or obj_OM_OP_Rs.Bof Then Exit For
  292. Next
  293. Response.Write "<tr><td class=""hback"" colspan=""6"" align=""left"">"&fPageCount(obj_OM_OP_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"&nbsp;&nbsp;<input type=""button"" value="" 批量锁定 "" name=""But_P_Lock"" onclick=""javascript:P_Lock();"">&nbsp;<input type=""button"" value="" 批量解锁 "" name=""But_P_UnLock"" onclick=""javascript:P_UnLock();"">&nbsp;<input type=""button"" value="" 批量删除 "" name=""But_P_Del"" onclick=""javascript:P_Del();"">&nbsp;全选<input type=""checkbox"" name=""Che_OPType"" onclick=""CheckAll();"" value=""""></td></tr>"
  294. Else
  295. Response.write"<table width=""98%"" border=0 align=center cellpadding=2 cellspacing=1 class=table><tr><td>当前没有内容!</td></tr></table>"
  296. End If
  297. obj_OM_OP_Rs.Close
  298. Set obj_OM_OP_Rs=Nothing
  299. End If
  300. Response.write "<script language=""javascript"">document.all.OM_ShowList.style.display=""none"";</script>"
  302. %>
  303. </form> 
  304. </table>
  305. </div>
  306. <script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
  307. </body>
  308. </html>
  309. <script language="javascript">
  310. function SelectTableShow(ShowType)
  311. {
  312. switch(ShowType)
  313. {
  314. case 0://显示常规管理首页
  315. document.all.OM_ShowList.style.display="";
  316. document.all.OM_AddNew.style.display="none";
  317. break;
  318. case 1://显示常规管理添加页
  319. document.all.OM_ShowList.style.display="none";
  320. document.all.OM_AddNew.style.display="";
  321. break;
  322. case 2://显示常规管理修改页
  323. break;
  324. //case 3://显示删除提示对话框
  325. // if(confirm('你将删除所有信息！n你确定删除吗？'))location='?OM_OP=S_DelAll';
  326. // break;
  327. case 4://显示列表信息
  328. <%
  329. If obj_OM_OP_Rs_EofFlag=True Then
  330. %>
  331. document.all.OM_ShowList.style.display="";
  332. <%
  333. Else
  334. %>
  335. document.all.OM_ShowList.style.display="none";
  336. <%
  337. End If
  338. %>
  339. document.all.OM_AddNew.style.display="none";
  340. break;
  341. }
  342. }
  343. function SelectOpType(OpType)
  344. {
  346. switch(parseInt(OpType))
  347. {
  348. case 0://默认全部不显示
  349. document.all.Tr_Url.style.display="none";
  350. document.all.Tr_Title.style.display="none";
  351. document.all.Tr_Email.style.display="none";
  352. document.all.Tr_Explanation.style.display="none";
  353. document.all.Tr_SubMit.style.display="none";
  354. break;
  355. case 1://关键字
  356. document.all.Tr_Url.style.display="none";
  357. document.all.Tr_Title.style.display="";
  358. document.all.Tr_Email.style.display="none";
  359. document.all.Tr_Explanation.style.display="";
  360. document.all.Tr_SubMit.style.display="";
  361. break;
  362. case 2://来源
  363. document.all.Tr_Url.style.display="";
  364. document.all.Tr_Title.style.display="";
  365. document.all.Tr_Email.style.display="none";
  366. document.all.Tr_Explanation.style.display="";
  367. document.all.Tr_SubMit.style.display="";
  368. break;
  369. case 3://作者
  370. document.all.Tr_Url.style.display="none";
  371. document.all.Tr_Title.style.display="";
  372. document.all.Tr_Email.style.display="";
  373. document.all.Tr_Explanation.style.display="";
  374. document.all.Tr_SubMit.style.display="";
  375. document.form_OM_AddNew.Sel_Type.value="3";
  376. break;
  377. case 4://内部连接
  378. document.all.Tr_Url.style.display="";
  379. document.all.Tr_Title.style.display="";
  380. document.all.Tr_Email.style.display="none";
  381. document.all.Tr_Explanation.style.display="";
  382. document.all.Tr_SubMit.style.display="";
  383. break;
  384. }
  385. }
  386. function Check_Type()
  387. {
  388. if (document.form_OM_AddNew.Sel_Type.value=="0") 
  389. {
  390. alert("请选择类型！");
  391. document.form_OM_AddNew.Sel_Type.focus();
  392. return false;
  393. }
  394. if (document.form_OM_AddNew.Txt_Name.value=="")
  395. {
  396. alert("请添加标题！");
  397. document.form_OM_AddNew.Txt_Name.focus();
  398. return false;
  399. }
  400. if (document.form_OM_AddNew.Sel_Type.value=="3"&&document.form_OM_AddNew.Txt_Email.value=="")
  401. {
  402. alert("请输入电子邮件地址！");
  403. document.form_OM_AddNew.Txt_Email.focus();
  404. return false;
  405. }
  406. if( document.form_OM_AddNew.Sel_Type.value=="3"&&document.form_OM_AddNew.Txt_Email.value.length<6 || document.form_OM_AddNew.Sel_Type.value=="3"&&document.form_OM_AddNew.Txt_Email.value.length>36 || document.form_OM_AddNew.Sel_Type.value=="3"&&!validateEmail() ) 
  407. {
  408.       alert("请您输入正确的邮箱地址 !");
  409.      document.form_OM_AddNew.Txt_Email.focus();
  410.      return false;
  411.     }
  412. return true
  413. }
  414. //检查电子邮件格式
  415. function validateEmail(){
  416. var re=/^[w-]+(.*[w-]+)*@([0-9a-z]+[0-9a-z-]*[0-9a-z]+.)+[a-z]{2,3}$/i;
  417. if(re.test(document.form_OM_AddNew.Txt_Email.value))
  418. return true;
  419. else
  420. return false;
  421. }
  422. function CheckAll()
  423. {
  424. var checkBoxArray=document.all("Che_OPType")
  425. if(checkBoxArray[checkBoxArray.length-1].checked)
  426. {
  427. for(var i=0;i<checkBoxArray.length-1;i++)
  428. {
  429. checkBoxArray[i].checked=true;
  431. }
  432. }else
  433. {
  434. for(var i=0;i<checkBoxArray.length-1;i++)
  435. {
  436. checkBoxArray[i].checked=false;
  437. }
  438. }
  439. }
  440. function P_Lock()
  441. {
  442. document.form_OM_OP.Hi_OP_Type.value="P_Lock";
  443. document.form_OM_OP.action='?OM_OP=OM_ShowList&OM_OP_P=P&ShowList=<%=Request.QueryString("Showlist")%>';
  444. document.form_OM_OP.submit();
  445. }
  446. function P_UnLock()
  447. {
  448. document.form_OM_OP.Hi_OP_Type.value="P_UnLock";
  449. document.form_OM_OP.action='?OM_OP=OM_ShowList&OM_OP_P=P&ShowList=<%=Request.QueryString("Showlist")%>';
  450. document.form_OM_OP.submit();
  451. }
  452. function P_Del()
  453. {
  454. if(confirm('此操作将删除选中的内容？n你确定删除吗？'))
  455. {
  456. document.form_OM_OP.Hi_OP_Type.value="P_Del";
  457. document.form_OM_OP.action='?OM_OP=OM_ShowList&OM_OP_P=P&ShowList=<%=Request.QueryString("Showlist")%>';
  458. document.form_OM_OP.submit();
  459. }
  460. }
  461. function DelAll()
  462. {
  463. if(confirm('将删除所有内容！n你确定删除吗？'))
  464. {
  465. location='?OM_OP=S_DelAll';
  466. }
  467. }
  468. function Lock(GID)
  469. {
  470. location='?OM_OP=OM_ShowList&ID='+GID+'&Action=Lock&Page=<%=Request.QueryString("Page")%>&ShowList=<%=Request.QueryString("ShowList")%>';
  471. }
  472. function UnLock(GID)
  473. {
  474. location='?OM_OP=OM_ShowList&ID='+GID+'&Action=UnLock&Page=<%=Request.QueryString("Page")%>&ShowList=<%=Request.QueryString("ShowList")%>';
  475. }
  476. function Update(GID)
  477. {
  478. location='?OM_OP=AddNew&ID='+GID+'&Action=Update&Page=<%=Request.QueryString("Page")%>&ShowList=<%=Request.QueryString("ShowList")%>';
  479. }
  480. function DelOne(GID)
  481. {
  482. if (confirm('确定要删除该记录吗?'))
  483. {
  484. location='?OM_OP=OM_ShowList&ID='+GID+'&Action=DelOne&Page=<%=Request.QueryString("Page")%>&ShowList=<%=Request.QueryString("ShowList")%>';
  485. }
  486. }
  487. function KeyWord()
  488. {
  489. location="other_manage.asp?OM_OP=OM_ShowList&ShowList=Keyword";
  490. }
  491. function Source()
  492. {
  493. location="other_manage.asp?OM_OP=OM_ShowList&ShowList=Source";
  494. }
  495. function ZouZe()
  496. {
  497. location='other_manage.asp?OM_OP=OM_ShowList&ShowList=ZouZe';
  498. }
  499. function LinkUrl()
  500. {
  501. location='other_manage.asp?OM_OP=OM_ShowList&ShowList=LinkUrl';
  502. }
  503. function AddOne()
  504. {
  505. location='other_manage.asp?OM_OP=AddNew';
  506. }
  507. function Sy()
  508. {
  509. location='other_manage.asp?OM_OP=OM_ShowList';
  510. }
  511. </script>
  512. <%
  513. If OM_OP="" Then
  514. Response.write"<script language=""javascript"">SelectTableShow(0);</script>"
  515. Else
  516. OM_OP=Cstr(OM_OP)
  517. Select Case OM_OP
  518. Case "AddNew"
  519. Response.write"<script language=""javascript"">SelectTableShow(1);</script>"
  520. Case "Update"
  521. Response.write"<script language=""javascript"">SelectTableShow(2);</script>"
  522. Case "DelAll"
  523. Response.write"<script language=""javascript"">SelectTableShow(3);</script>"
  524. Case "OM_ShowList"
  525. Response.write"<script language=""javascript"">SelectTableShow(4);</script>"
  526. Case else
  527. Response.write"<script language=""javascript"">SelectTableShow(0);</script>"
  528. End Select
  529. End IF
  531. If OM_OP_Up_Type=4 Then Response.write "<script language=""javascript"">SelectOpType(4);</script>" 
  532. If OM_OP_Up_Type=1 Then Response.write "<script language=""javascript"">SelectOpType(1);</script>"
  533. If OM_OP_Up_Type=2 Then Response.write "<script language=""javascript"">SelectOpType(2);</script>"
  534. If OM_OP_Up_Type=3 Then Response.write "<script language=""javascript"">SelectOpType(3);</script>"
  535. Set Conn=Nothing
  536. %><!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->