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

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

数据库编程

开发平台：

ASP/ASPX

VS_Class.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_InterFace/VS_Function.asp" -->
  5. <!--#include file="../../FS_Inc/Function.asp" -->
  6. <!--#include file="../../FS_Inc/Func_Page.asp" -->
  7. <%'Copyright (c) 2006 Foosun Inc. Code by awen
  8. Response.Buffer = True
  9. Response.Expires = -1
  10. Response.ExpiresAbsolute = Now() - 1
  11. Response.Expires = 0
  12. Response.CacheControl = "no-cache"
  13. Dim Conn,VS_Rs,VS_Sql
  14. Dim AutoDelete,Months
  15. MF_Default_Conn 
  16. MF_Session_TF
  17. if not MF_Check_Pop_TF("VS003") then Err_Show
  19. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  20. int_RPP=15 '设置每页显示数目
  21. int_showNumberLink_=10 '数字导航显示数目
  22. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  23. str_nonLinkColor_="#999999" '非热链接颜色
  24. toF_="<font face=webdings>9</font>"    '首页 
  25. toP10_=" <font face=webdings>7</font>" '上十
  26. toP1_=" <font face=webdings>3</font>" '上一
  27. toN1_=" <font face=webdings>4</font>" '下一
  28. toN10_=" <font face=webdings>8</font>" '下十
  29. toL_="<font face=webdings>:</font>" '尾页
  30. ''得到相关表的值。
  31. Function Get_OtherTable_Value(This_Fun_Sql)
  32. Dim This_Fun_Rs,f_Tmpstr_
  33. f_Tmpstr_ = ""
  34. if instr(This_Fun_Sql," FS_ME_")>0 then 
  35. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  36. else
  37. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  38. end if
  39. if not This_Fun_Rs.eof then 
  40. if instr(This_Fun_Sql," in ") > 0 then 
  41. do while not This_Fun_Rs.eof
  42. f_Tmpstr_ = f_Tmpstr_ & This_Fun_Rs(0) &","
  43. This_Fun_Rs.movenext
  44. loop
  45. else
  46. f_Tmpstr_ = This_Fun_Rs(0)
  47. end if
  48. else
  49. f_Tmpstr_ = "0"
  50. end if
  51. if Err.Number>0 then 
  52. Err.Clear
  53. response.Redirect("../error.asp?ErrCodes=<li>Get_OtherTable_Value未能得到相关数据。错误描述："&Err.Description&"</li>") : response.End()
  54. end if
  55. set This_Fun_Rs=nothing 
  56. if right(f_Tmpstr_,1)="," then f_Tmpstr_ = left(f_Tmpstr_,len(f_Tmpstr_) - 1)
  57. Get_OtherTable_Value = f_Tmpstr_
  58. End Function
  59. Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
  60. '''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
  61. Dim Get_Html,This_Fun_Rs,Text
  62. On Error Resume Next
  63. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  64. If Err.Number <> 0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>抱歉,传入的Sql语句有问题.或表和字段不存在.</li>")
  65. do while not This_Fun_Rs.eof 
  66. select case Get_Type
  67.   case 1
  68. ''<option>
  69. if instr(This_Fun_Sql,",") >0 then 
  70. Text = This_Fun_Rs(1)
  71. else
  72. Text = This_Fun_Rs(0)
  73. end if
  74. if trim(EquValue) = trim(This_Fun_Rs(0)) then 
  75. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&"""  style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
  76. else
  77. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
  78. end if
  79.   case else
  80. exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function 
  81. end select
  82. This_Fun_Rs.movenext
  83. loop
  84. This_Fun_Rs.close
  85. Get_FildValue_List = Get_Html
  86. End Function 
  88. Function Get_While_Info(Add_Sql,orderby)
  89. Dim Get_Html,This_Fun_Sql,ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  90. Dim CID,ClassName,Description
  91. CID  = NoSqlHack(request("CID"))
  92. ClassName   = NoSqlHack(request("ClassName"))
  93. Description = NoSqlHack(request("Description"))
  94. Str_Tmp = "CID,ClassName,Description"
  95. This_Fun_Sql = "select "&Str_Tmp&" from FS_VS_Class"
  96. if CID<>"" then New_Search_Str = and_where(New_Search_Str) & Search_TextArr(CID,"CID","")
  97. if ClassName<>"" then New_Search_Str = and_where(New_Search_Str) & Search_TextArr(ClassName,"ClassName","")
  98. if Description<>"" then New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Description,"Description","")
  99. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  100. Str_Tmp = ""
  101. if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
  102. if orderby<>"" then This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  103. 'response.Write(This_Fun_Sql)
  104. On Error Resume Next
  105. Set VS_Rs = CreateObject(G_FS_RS)
  106. VS_Rs.Open This_Fun_Sql,Conn,1,1
  107. if Err<>0 then 
  108. Err.Clear
  109. response.Redirect("../error.asp?ErrCodes=<li>查询出错："&Err.Description&"</li><li>请检查字段类型是否匹配.</li>")
  110. response.End()
  111. end if
  112. IF VS_Rs.eof THEN
  113.   response.Write("<tr class=""hback""><td colspan=15>暂无数据.</td></tr>") 
  114. else
  115. VS_Rs.PageSize=int_RPP
  116. cPageNo=NoSqlHack(Request.QueryString("Page"))
  117. If cPageNo="" Then cPageNo = 1
  118. If not isnumeric(cPageNo) Then cPageNo = 1
  119. cPageNo = Clng(cPageNo)
  120. If cPageNo<=0 Then cPageNo=1
  121. If cPageNo>VS_Rs.PageCount Then cPageNo=VS_Rs.PageCount 
  122. VS_Rs.AbsolutePage=cPageNo
  124.   FOR int_Start=1 TO int_RPP 
  125. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  126. Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("CID")&"</td>" & vbcrlf
  127. Get_Html = Get_Html & "<td align=""center""><a href=""VS_Class.asp?Act=Edit&CID="&VS_Rs("CID")&""">"&VS_Rs("ClassName")&"</a></td>" & vbcrlf
  128. Get_Html = Get_Html & "<td align=""center"">"&left(VS_Rs("Description"),100)&"...</td>" & vbcrlf
  129. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""CID"" id=""CID"" value="""&VS_Rs("CID")&""" /></td>" & vbcrlf
  130. Get_Html = Get_Html & "</tr>" & vbcrlf
  131. VS_Rs.MoveNext
  132.   if VS_Rs.eof or VS_Rs.bof then exit for
  133.       NEXT
  134. END IF
  135. Get_Html = Get_Html & "<tr class=""hback""><td colspan=20 align=""center"" class=""ischeck"">"& vbcrlf &"<table width=""100%"" border=0><tr><td height=30>" & vbcrlf
  136. Get_Html = Get_Html & fPageCount(VS_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  137. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  138. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  139. Get_Html = Get_Html &"</td></tr>"
  140. VS_Rs.close
  141. Get_While_Info = Get_Html
  142. End Function
  144. Sub Del()
  145. if not MF_Check_Pop_TF("VS002") then Err_Show
  146. Dim Str_Tmp
  147. if request.QueryString("CID")<>"" then 
  148. Conn.execute("Delete from FS_VS_Class where CID = "&NoSqlHack(request.QueryString("CID")))
  149. Conn.execute("Delete from FS_VS_Items where TID in ( "&Get_OtherTable_Value("select TID from FS_VS_Theme where CID in ( "&NoSqlHack(request.QueryString("CID"))&")")&" )")
  150. Conn.execute("Delete from FS_VS_Items_Result where TID in ( "&Get_OtherTable_Value("select TID from FS_VS_Theme where CID in ( "&NoSqlHack(request.QueryString("CID"))&")")&" )")
  151. Conn.execute("Delete from FS_VS_Steps where TID in ( "&Get_OtherTable_Value("select TID from FS_VS_Theme where CID in ( "&NoSqlHack(request.QueryString("CID"))&")")&" )")
  152. Conn.execute("Delete from FS_VS_Theme where CID = "&NoSqlHack(request.QueryString("CID")))
  153. else
  154. Str_Tmp = NoSqlHack(request.form("CID"))
  155. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>"):response.End()
  156. Str_Tmp = replace(Str_Tmp," ","")
  157. Conn.execute("Delete from FS_VS_Class where CID in ("&Str_Tmp&")")
  158. Conn.execute("Delete from FS_VS_Items where TID in ( "&Get_OtherTable_Value("select TID from FS_VS_Theme where CID in ( "&Str_Tmp&")")&" )")
  159. Conn.execute("Delete from FS_VS_Items_Result where TID in ( "&Get_OtherTable_Value("select TID from FS_VS_Theme where CID in ( "&Str_Tmp&")")&" )")
  160. Conn.execute("Delete from FS_VS_Steps where TID in ( "&Get_OtherTable_Value("select TID from FS_VS_Theme where CID in ( "&Str_Tmp&")")&" )")
  161. Conn.execute("Delete from FS_VS_Theme where CID in ("&Str_Tmp&")")
  162. end if
  163. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Class.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  164. End Sub
  165. ''================================================================
  166. Sub Save()
  167. if not MF_Check_Pop_TF("VS002") then Err_Show
  168. Dim Str_Tmp,Arr_Tmp,CID
  169. Str_Tmp = "ClassName,Description"
  170. Arr_Tmp = split(Str_Tmp,",")
  171. CID = NoSqlHack(request.Form("CID"))
  172. if not isnumeric(CID) or not CID<>"" then CID = 0
  173. VS_Sql = "select "&Str_Tmp&"  from FS_VS_Class  where CID = "&CID
  174. Set VS_Rs = CreateObject(G_FS_RS)
  175. VS_Rs.Open VS_Sql,Conn,3,3
  176. if not VS_Rs.eof then 
  177. ''修改
  178. for each Str_Tmp in Arr_Tmp
  179. VS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  180. next
  181. VS_Rs.update
  182. VS_Rs.close
  183. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Class.asp?Act=Edit&CID="&CID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  184. else
  185. ''新增
  186. if Conn.execute("Select Count(*) from FS_VS_Class where ClassName='"&NoSqlHack(request.Form("ClassName"))&"'")(0)>0 then 
  187. response.Redirect("../error.asp?ErrCodes=<li>你提交的数据已经存在，属于重复提交，请更换关键字。</li>"):response.End()
  188. end if
  189. VS_Rs.addnew
  190. for each Str_Tmp in Arr_Tmp
  191. 'response.Write(Str_Tmp&":"&NoSqlHack(request.Form(Str_Tmp))&"<br>")
  192. VS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  193. next
  194. VS_Rs.update
  195. VS_Rs.close
  196. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Class.asp?Act=Add&ClassName="&request.Form("ClassName") ) &"&ErrCodes=<li>恭喜，新增成功。</li>")
  197. end if
  198. End Sub
  199. %>
  200. <html xmlns="http://www.w3.org/1999/xhtml">
  201. <HEAD>
  202. <TITLE>FoosunCMS</TITLE>
  203. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  204. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  205. <script language="JavaScript" src="../../FS_Inc/PublicJS.js"></script>
  206. <script language="JavaScript" src="../../FS_Inc/CheckJs.js"></script>
  207. <script language="JavaScript">
  208. <!--
  209. function chkinput()
  210. {
  211. return isEmpty('Description','Description_Alt') && isEmpty('ClassName','ClassName_Alt');
  212. }
  213. //点击标题排序
  214. /////////////////////////////////////////////////////////
  215. var Old_Sql = document.URL;
  216. function OrderByName(FildName)
  217. {
  218. var New_Sql='';
  219. var oldFildName="";
  220. if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
  221. {
  222. if (Old_Sql.indexOf("=")>-1)
  223. New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
  224. else
  225. New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
  226. }
  227. else
  228. {
  229. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  230. for(var ii=0;ii<tmp_arr_.length;ii++)
  231. {
  232. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  233. {
  234. oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
  235. break;
  236. }
  237. }
  238. oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName):New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName+"csed");
  239. }
  240. //alert(New_Sql);
  241. location = New_Sql;
  242. }
  243. /////////////////////////////////////////////////////////
  244. -->
  245. </script>
  246. <head>
  247. <body>
  248. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  249.      <tr  class="hback"> 
  250.             
  251.     <td colspan="10" align="left" class="xingmu" >投票分类管理</td>
  252. </tr>
  253.   <tr  class="hback"> 
  254.     <td colspan="10" height="25">
  255.  <a href="VS_Class.asp">管理首页</a> | <a href="VS_Class.asp?Act=Add">新增</a> | <a href="VS_Class.asp?Act=Search">查询</a>
  256. </td>
  257.   </tr>
  258. </table>
  259. <%
  260. '******************************************************************
  261. select case request.QueryString("Act")
  262. case "Add","Edit","Search"
  263. Add_Edit_Search
  264. case "View","SearchGo",""
  265. View
  266. case "Save"
  267. Save
  268. case "Del"
  269. Del
  270. case "OtherSet"
  271. OtherSet(request.QueryString("Sql"))
  272. case else
  273. response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>错误的参数传递。</li>") : response.End()
  274. end select
  275. '******************************************************************
  276. Sub View()
  277. if not MF_Check_Pop_TF("VS_site") then Err_Show
  278. %>
  279. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  280. <form name="form1" id="form1" method="post" action="?Act=Del">
  281.    <tr  class="hback"> 
  282.       <td width="10%" align="center" class="xingmu"><a href="javascript:OrderByName('CID')" class="sd"><b>ID</b></a> 
  283.         <span id="Show_Oder_CID"></span></td>
  284.       <td width="30%" align="center" class="xingmu" ><a href="javascript:OrderByName('ClassName')" class="sd"><b>类别名称</b></a> 
  285.         <span id="Show_Oder_ClassName"></span></td>
  286.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('Description')" class="sd"><b>描述</b></a> 
  287.         <span id="Show_Oder_Description"></span></td>
  288.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  289.     </tr>
  290.     <%
  291. response.Write( Get_While_Info( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  292. %>
  293.    </form>
  294. </table>
  295. <%End Sub
  296. Sub Add_Edit_Search()
  297. if not MF_Check_Pop_TF("VS_site") then Err_Show
  298. Dim Bol_IsEdit,CID,ClassName
  299. Bol_IsEdit = false
  300. if request.QueryString("Act")="Edit" then
  301. CID = request.QueryString("CID")
  302. if CID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的CID没有提供。</li>") : response.End()
  303. VS_Sql = "select CID,ClassName,Description from FS_VS_Class where CID = "& CID
  304. Set VS_Rs = CreateObject(G_FS_RS)
  305. VS_Rs.Open VS_Sql,Conn,1,1
  306. if not VS_Rs.eof then 
  307. Bol_IsEdit = True
  308. ClassName = VS_Rs("ClassName")
  309. end if
  310. else
  312. end if
  313. %>
  314. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  315.   <form name="form1" id="form1" method="post" <%if request.QueryString("Act")<>"Search" then response.Write("action=""?Act=Save"" onsubmit=""return chkinput();""") else response.Write("action=""?Act=SearchGo"" onsubmit=""SearchAdd();""") end if%>>
  316.     <tr  class="hback"> 
  317.       <td colspan="3" align="left" class="xingmu" >投票分类信息<%if Bol_IsEdit then  response.Write("<input type=""hidden"" name=""CID"" id=""CID"" value="""&VS_Rs("CID")&""">") end if%></td>
  318. </tr>
  319. <%if request.QueryString("Act")="Search" then %>
  321.     <tr class="hback"> 
  322.       <td width="100" align="right">自动编号</td>
  323.       <td>
  324.    <input type="text" name="CID" id="CID" size="11" maxlength="11">
  325.       </td>
  326.     </tr>
  327. <%end if%>
  328.     <tr  class="hback"> 
  329.       <td align="right">类别名称</td>
  330.       <td>
  331. <input type="text" name="ClassName" id="ClassName" size="30" maxlength="20" onFocus="Do.these('ClassName',function(){return isEmpty('ClassName','ClassName_Alt')})" onKeyUp="Do.these('ClassName',function(){return isEmpty('ClassName','ClassName_Alt')})" value="<%if Bol_IsEdit then response.Write(VS_Rs("ClassName")) end if%>">
  332. <span id="ClassName_Alt"></span>
  333.   </td>
  334.     </tr>
  335.     <tr  class="hback"> 
  336.       <td align="right">描述</td>
  337.       <td>
  338. <input type="text" name="Description" id="Description" size="30" maxlength="50" value="<%if Bol_IsEdit then response.Write(VS_Rs("Description")) end if%>">
  339.         <span id="Description_Alt"></span>
  340.   </td>
  341.     </tr>
  342.    <tr class="hback"> 
  343.       <td colspan="4">
  344.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  345.           <tr> 
  346.             <td align="center"> <input type="submit"value=" 确定提交 "/> 
  347.               &nbsp; <input type="reset" value=" 重置 " />
  348.      &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("VS_Class.asp?Act=Del&CID="&CID)%>'">
  349.             </td>
  350.           </tr>
  351.         </table>
  352.       </td>
  353.     </tr>
  354.   </form>
  355. </table>
  356. <%
  357. End Sub
  358. set VS_Rs = Nothing
  359. Conn.close
  360. %>
  361. <script language="JavaScript">
  362. <!--//判断后将排序完善.字段名后面显示指示
  363. //打开后根据规则显示箭头
  364. var Req_FildName;
  365. if (Old_Sql.indexOf("filterorderby=")>-1)
  366. {
  367. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  368. for(var ii=0;ii<tmp_arr_.length;ii++)
  369. {
  370. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  371. {
  372. if(Old_Sql.indexOf("csed")>-1)
  373. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
  374. else
  375. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
  376. }
  377. }
  378. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  379. {
  380. if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
  381. {
  382. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  383. }
  384. else
  385. {
  386. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  387. }
  388. }
  389. }
  390. ///////////////////////////////////////////////////////// 
  391. -->
  392. </script>
  393. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->