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

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

数据库编程

开发平台：

ASP/ASPX

VS_Items.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,VS_Rs1 ,sRootDir,str_CurrPath
  14. Dim AutoDelete,Months
  15. MF_Default_Conn 
  16. MF_Session_TF
  17. if not MF_Check_Pop_TF("VS003") then Err_Show
  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
  27. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  28. int_RPP=15 '设置每页显示数目
  29. int_showNumberLink_=10 '数字导航显示数目
  30. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  31. str_nonLinkColor_="#999999" '非热链接颜色
  32. toF_="<font face=webdings>9</font>"    '首页 
  33. toP10_=" <font face=webdings>7</font>" '上十
  34. toP1_=" <font face=webdings>3</font>" '上一
  35. toN1_=" <font face=webdings>4</font>" '下一
  36. toN10_=" <font face=webdings>8</font>" '下十
  37. toL_="<font face=webdings>:</font>" '尾页
  39. ''得到相关表的值。
  40. Function Get_OtherTable_Value(This_Fun_Sql)
  41. Dim This_Fun_Rs
  42. if instr(This_Fun_Sql," FS_ME_")>0 then 
  43. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  44. else
  45. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  46. end if
  47. if not This_Fun_Rs.eof then 
  48. Get_OtherTable_Value = This_Fun_Rs(0)
  49. else
  50. Get_OtherTable_Value = ""
  51. end if
  52. if Err.Number>0 then 
  53. Err.Clear
  54. response.Redirect("../error.asp?ErrCodes=<li>Get_OtherTable_Value未能得到相关数据。错误描述："&Err.Type&"</li>") : response.End()
  55. end if
  56. set This_Fun_Rs=nothing 
  57. End Function
  58. Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
  59. '''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
  60. Dim Get_Html,This_Fun_Rs,Text
  61. On Error Resume Next
  62. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  63. If Err.Number <> 0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>抱歉,传入的Sql语句有问题.或表和字段不存在.</li>")
  64. do while not This_Fun_Rs.eof 
  65. select case Get_Type
  66.   case 1
  67. ''<option>
  68. if instr(This_Fun_Sql,",") >0 then 
  69. Text = This_Fun_Rs(1)
  70. else
  71. Text = This_Fun_Rs(0)
  72. end if
  73. if trim(EquValue) = trim(This_Fun_Rs(0)) then 
  74. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&"""  style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
  75. else
  76. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
  77. end if
  78.   case else
  79. exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function 
  80. end select
  81. This_Fun_Rs.movenext
  82. loop
  83. This_Fun_Rs.close
  84. Get_FildValue_List = Get_Html
  85. End Function 
  87. Function Get_While_Info(Add_Sql,orderby)
  88. Dim Get_Html,This_Fun_Sql,ii,db_ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  89. Str_Tmp = "IID,TID,ItemName,ItemValue,ItemMode,PicSrc,DisColor,VoteCount,ItemDetail"
  90. This_Fun_Sql = "select "&Str_Tmp&" from FS_VS_Items"
  91. if request.QueryString("Act")="SearchGo" then 
  92. Arr_Tmp = split(Str_Tmp,",")
  93. for each Str_Tmp in Arr_Tmp
  94. Req_Str = NoSqlHack(Trim(request(Str_Tmp)))
  95. if Req_Str<>"" then 
  96. select case Str_Tmp
  97. case "IID","TID","ItemMode","VoteCount"
  98. ''数字,日期
  99. regxp = "|<|>|=|<=|>=|<>|"
  100. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  101. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  102. elseif instr(Req_Str,"*")>0 then 
  103. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  104. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  105. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  106. else
  107. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  108. end if
  109. case else
  110. ''字符
  111. New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
  112. end select 
  113. end if
  114. next
  115. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  116. end if
  117. Str_Tmp = ""
  118. 'response.Write(This_Fun_Sql)
  119. if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
  120. if orderby<>"" then This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  121. On Error Resume Next
  122. Set VS_Rs = CreateObject(G_FS_RS)
  123. VS_Rs.Open This_Fun_Sql,Conn,1,1
  124. if Err<>0 then 
  125. Err.Clear
  126. response.Redirect("../error.asp?ErrCodes=<li>查询出错："&Err.Description&"</li><li>请检查字段类型是否匹配.</li>")
  127. response.End()
  128. end if
  129. IF VS_Rs.eof THEN
  130.   response.Write("<tr class=""hback""><td colspan=15>暂无数据.</td></tr>") 
  131. else
  132. VS_Rs.PageSize=int_RPP
  133. cPageNo=NoSqlHack(Request.QueryString("Page"))
  134. If cPageNo="" Then cPageNo = 1
  135. If not isnumeric(cPageNo) Then cPageNo = 1
  136. cPageNo = Clng(cPageNo)
  137. If cPageNo<=0 Then cPageNo=1
  138. If cPageNo>VS_Rs.PageCount Then cPageNo=VS_Rs.PageCount 
  139. VS_Rs.AbsolutePage=cPageNo
  141.   FOR int_Start=1 TO int_RPP 
  142. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  143. Get_Html = Get_Html & "<td align=""center""><a href=""VS_Items.asp?Act=Edit&IID="&VS_Rs("IID")&""" title=""点击修改或查看详细"">"&VS_Rs("ItemName")&"</a></td>" & vbcrlf
  144. Get_Html = Get_Html & "<td align=""center"" style=""cursor:hand"" onclick=""javascript:if(TD_U_"&VS_Rs("IID")&".style.display=='') TD_U_"&VS_Rs("IID")&".style.display='none'; else {TD_U_"&VS_Rs("IID")&".style.display='';ReImgSize('TD_Img_"&VS_Rs("IID")&"');}"" title='点击查看详细情况'>"&Get_OtherTable_Value("select Theme from FS_VS_Theme where TID ="&VS_Rs("TID"))&"</td>" & vbcrlf
  145. Get_Html = Get_Html & "<td align=""center"">"&Replacestr(VS_Rs("ItemMode"),"1:文字描述模式,2:<span class=tx>自主填写模式</span>,3:<b>图片模式</b>")&"</td>" & vbcrlf
  146. Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("PicSrc")&"</td>" & vbcrlf
  147. Get_Html = Get_Html & Replacestr(VS_Rs("DisColor"),":<td align=""center"">无</td>,else:<td align=""center"" bgcolor="""&VS_Rs("DisColor")&""">"&VS_Rs("DisColor")&"</td>") & vbcrlf
  148. Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("VoteCount")&"</td>" & vbcrlf
  149. Get_Html = Get_Html & "<td align=""center"">"&Replacestr(VS_Rs("ItemDetail"),":无,else:"&left(VS_Rs("ItemDetail"),80)&"...")&"</td>" & vbcrlf
  150. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""IID"" id=""IID"" value="""&VS_Rs("IID")&""" /></td>" & vbcrlf
  151. Get_Html = Get_Html & "</tr>" & vbcrlf
  152. ''++++++++++++++++++++++++++++++++++++++点开时显示详细信息。
  153. set VS_Rs1 = Conn.execute("select TID,CID,Theme,Type,DisMode,StartDate,EndDate,ItemMOde from FS_VS_Theme where TID ="&VS_Rs("TID"))
  154. Get_Html = Get_Html & "<tr class=""hback"" id=""TD_U_"& VS_Rs("IID") &""" style=""display:'none'""><td colspan=20>" & vbcrlf
  155. Get_Html = Get_Html & "<table width=""100%"" height=""30"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""table"">" & vbcrlf 
  156. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td colspan=3>投票分类:"&Get_OtherTable_Value("select ClassName from FS_VS_Class where CID ="&VS_Rs1("CID"))& "</td></tr>" & vbcrlf
  157. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td colspan=3>分类描述:"&Get_OtherTable_Value("select Description from FS_VS_Class where CID ="&VS_Rs1("CID"))& "</td></tr>" & vbcrlf
  158. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>调查主题:"&VS_Rs1("Theme")&"</td><td>项目类型:"&Replacestr(VS_Rs1("Type"),"1:单选,2:多选,3:多步")&"</td><td>显示方式:"&Replacestr(VS_Rs1("DisMode"),"1:直方图,2:饼图,3:折线图")&"</td></tr>" & vbcrlf
  159. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>排列方式:"&Replacestr(VS_Rs1("ItemMOde"),":无,0:横向排列,1:1选项/行(纵向),2:2选项/行,3:3选项/行,4:4选项/行,5:5选项/行,6:6选项/行,7:7选项/行,8:8选项/行,9:9选项/行,10:10选项/行,11:11选项/行,12:12选项/行")&"</td><td>开始时间:"&VS_Rs1("StartDate")&"</td><td>结束时间:"&VS_Rs1("EndDate")&"</td></tr>" & vbcrlf
  160. Get_Html = Get_Html & "</table>" & vbcrlf
  161. Get_Html = Get_Html &"</td></tr>" & vbcrlf
  162. VS_Rs1.close
  163. ''+++++++++++++++++++++++++++++++++++++++
  164. VS_Rs.MoveNext
  165.   if VS_Rs.eof or VS_Rs.bof then exit for
  166.       NEXT
  167. END IF
  168. 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
  169. Get_Html = Get_Html & fPageCount(VS_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  170. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  171. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  172. Get_Html = Get_Html &"</td></tr>"
  173. VS_Rs.close
  174. Get_While_Info = Get_Html
  175. End Function
  177. Sub Del()
  178. if not MF_Check_Pop_TF("VS002") then Err_Show
  179. Dim Str_Tmp
  180. if request.QueryString("IID")<>"" then 
  181. Conn.execute("Delete from FS_VS_Items where IID = "&NoSqlHack(request.QueryString("IID")))
  182. Conn.execute("Delete from FS_VS_Items_Result where IID = "&NoSqlHack(request.QueryString("IID")))
  183. else
  184. Str_Tmp = NoSqlHack(request.form("IID"))
  185. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>"):response.End()
  186. Str_Tmp = replace(Str_Tmp," ","")
  187. Conn.execute("Delete from FS_VS_Items where IID in ("&Str_Tmp&")")
  188. Conn.execute("Delete from FS_VS_Items_Result where IID in ("&Str_Tmp&")")
  189. end if
  190. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Items.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  191. End Sub
  192. ''================================================================
  193. Sub Save()
  194. Dim Str_Tmp,Arr_Tmp,IID
  195. Str_Tmp = "TID,ItemName,ItemValue,ItemMode,PicSrc,DisColor,ItemDetail"
  196. Arr_Tmp = split(Str_Tmp,",")
  197. IID = NoSqlHack(request.Form("IID"))
  198. if not isnumeric(IID) or not IID<>"" then IID = 0
  199. VS_Sql = "select "&Str_Tmp&",VoteCount  from FS_VS_Items  where IID = "&IID
  200. Set VS_Rs = CreateObject(G_FS_RS)
  201. VS_Rs.Open VS_Sql,Conn,3,3
  202. if not VS_Rs.eof then 
  203. ''修改
  204. for each Str_Tmp in Arr_Tmp
  205. VS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  206. next
  207. if isnumeric(request.Form("VoteCount")) then  VS_Rs("VoteCount") = request.Form("VoteCount")
  208. VS_Rs.update
  209. VS_Rs.close
  210. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Items.asp?Act=Edit&IID="&IID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  211. else
  212. ''新增
  213. if Conn.execute("Select Count(*) from FS_VS_Items where ItemName='"&NoSqlHack(request.Form("ItemName"))&"' and TID = "&NoSqlHack(request.Form("TID")))(0)>0 then 
  214. response.Redirect("../error.asp?ErrCodes=<li>你提交的数据已经存在，属于重复提交，请更换关键字。</li>"):response.End()
  215. end if
  216. VS_Rs.addnew
  217. for each Str_Tmp in Arr_Tmp
  218. 'response.Write(Str_Tmp&":"&NoSqlHack(request.Form(Str_Tmp))&"<br>")
  219. VS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  220. next
  221. if isnumeric(request.Form("VoteCount")) then  
  222. VS_Rs("VoteCount") = request.Form("VoteCount")
  223. else
  224. VS_Rs("VoteCount")=0
  225. end if
  226. 'response.End()
  227. VS_Rs.update
  228. VS_Rs.close
  229. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Items.asp?Act=Add&VoteCount="&request.form("VoteCount")&"&TID="&request.form("TID")&"&ItemValue="&request.form("ItemValue") ) &"&ErrCodes=<li>恭喜，新增成功。</li>")
  230. end if
  231. End Sub
  232. %>
  233. <html xmlns="http://www.w3.org/1999/xhtml">
  234. <HEAD>
  235. <TITLE>FoosunCMS</TITLE>
  236. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  237. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  238. <script language="JavaScript" src="../../FS_Inc/PublicJS.js"></script>
  239. <script language="JavaScript" src="../../FS_Inc/CheckJs.js"></script>
  240. <script language="JavaScript" src="../../FS_Inc/coolWindowsCalendar.js"></script>
  241. <script language="JavaScript">
  242. <!--
  243. //点击标题排序
  244. /////////////////////////////////////////////////////////
  245. var Old_Sql = document.URL;
  246. function OrderByName(FildName)
  247. {
  248. var New_Sql='';
  249. var oldFildName="";
  250. if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
  251. {
  252. if (Old_Sql.indexOf("=")>-1)
  253. New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
  254. else
  255. New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
  256. }
  257. else
  258. {
  259. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  260. for(var ii=0;ii<tmp_arr_.length;ii++)
  261. {
  262. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  263. {
  264. oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
  265. break;
  266. }
  267. }
  268. oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName):New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName+"csed");
  269. }
  270. //alert(New_Sql);
  271. location = New_Sql;
  272. }
  273. /////////////////////////////////////////////////////////
  274. -->
  275. </script>
  276. <head>
  277. <body>
  278. <iframe width="260" height="165" id="colorPalette" src="../CommPages/selcolor.htm" style="visibility:hidden; position: absolute;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
  279. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  280.      <tr  class="hback"> 
  281.             
  282.     <td colspan="10" align="left" class="xingmu" >投票选项管理</td>
  283. </tr>
  284.   <tr  class="hback"> 
  285.     <td colspan="10" height="25">
  286.  <a href="VS_Items.asp">管理首页</a> | <a href="VS_Items.asp?Act=Add">新增</a> | <a href="VS_Items.asp?Act=Search" title="数字和日期型的字段,支持<=<>=><>等等运算符号如:查过期天数>2 ; 其它类型支持 A B ,A* *B ,*A* *B* ,AB等模式.">查询</a>
  287. </td>
  288.   </tr>
  289. </table>
  290. <%
  291. '******************************************************************
  292. select case request.QueryString("Act")
  293. case "Add","Edit","Search"
  294. Add_Edit_Search
  295. case "View","SearchGo",""
  296. View
  297. case "Save"
  298. Save
  299. case "Del"
  300. Del
  301. case "OtherSet"
  302. OtherSet(request.QueryString("Sql"))
  303. case else
  304. response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>错误的参数传递。</li>") : response.End()
  305. end select
  306. '******************************************************************
  307. Sub View
  308. if not MF_Check_Pop_TF("VS003") then Err_Show
  309. %>
  310. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  311. <form name="form1" id="form1" method="post" action="?Act=Del">
  312.    <tr  class="hback"> 
  313.       <td align="center" class="xingmu"><a href="javascript:OrderByName('ItemName')" class="sd"><b>选项描述</b></a> 
  314.         <span id="Show_Oder_ItemName"></span></td>
  315.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('TID')" class="sd"><b>所属调查</b></a> 
  316.         <span id="Show_Oder_TID"></span></td>
  317.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('ItemMode')" class="sd"><b>选项模式</b></a> 
  318.         <span id="Show_Oder_ItemMode"></span></td>
  319.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('PicSrc')" class="sd"><b>图片位置</b></a> 
  320.         <span id="Show_Oder_PicSrc"></span></td>
  321.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('DisColor')" class="sd"><b>显示颜色</b></a> 
  322.         <span id="Show_Oder_DisColor"></span></td>
  323.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('VoteCount')" class="sd"><b>票数</b></a> 
  324.         <span id="Show_Oder_VoteCount"></span></td>
  325.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('ItemDetail')" class="sd"><b>选项说明</b></a> 
  326.         <span id="Show_Oder_ItemDetail"></span></td>
  327.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  328.     </tr>
  329.     <%
  330. response.Write( Get_While_Info( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  331. %>
  332.    </form>
  333. </table>
  334. <%End Sub
  335. Sub Add_Edit_Search()
  336. Dim Bol_IsEdit,IID,TID,ItemValue,ItemMode,DisColor,VoteCount
  337. Bol_IsEdit = false
  338. if request.QueryString("Act")="Edit" then
  339. if not MF_Check_Pop_TF("VS002") then Err_Show
  340. IID = request.QueryString("IID")
  341. if IID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的IID没有提供。</li>") : response.End()
  342. VS_Sql = "select IID,TID,ItemName,ItemValue,ItemMode,PicSrc,DisColor,VoteCount,ItemDetail from FS_VS_Items where IID = "& IID
  343. Set VS_Rs = CreateObject(G_FS_RS)
  344. VS_Rs.Open VS_Sql,Conn,1,1
  345. if not VS_Rs.eof then 
  346. Bol_IsEdit = True
  347. TID = VS_Rs("TID")
  348. ItemValue = VS_Rs("ItemValue")
  349. ItemMode = VS_Rs("ItemMode")
  350. DisColor = VS_Rs("DisColor")
  351. VoteCount = VS_Rs("VoteCount")
  352. end if
  353. elseif request.QueryString("Act") = "Add" then 
  354. if not MF_Check_Pop_TF("VS002") then Err_Show
  355. TID = request.QueryString("TID")
  356. ItemValue = request.QueryString("ItemValue")
  357. if ItemValue = "" then ItemValue = "1-9"
  358. ItemMode = 1
  359. DisColor = ""
  360. VoteCount = request.QueryString("VoteCount")
  361. if VoteCount = "" then 
  362. randomize
  363. VoteCount = CStr(Int((99* Rnd) + 1))
  364. end if
  365. end if
  366. %>
  367. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  368.   <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""") end if%>>
  369.     <tr  class="hback"> 
  370.       <td colspan="3" align="left" class="xingmu" >投票选项信息<%if Bol_IsEdit then  response.Write("<input type=""hidden"" name=""IID"" id=""IID"" value="""&VS_Rs("IID")&""">") end if%></td>
  371. </tr>
  372. <%if request.QueryString("Act")="Search" then %>
  374.     <tr class="hback"> 
  375.       <td width="100" align="right">自动编号</td>
  376.       <td>
  377.    <input type="text" name="IID" id="IID" size="11" maxlength="11">
  378.       </td>
  379.     </tr>
  380. <%end if%>
  381.     <tr  class="hback"> 
  382.       <td align="right">所属投票</td>
  383.       <td>
  384. <select name="TID" id="TID" onChange="Do.these('TID',function(){return isEmpty('TID','TID_Alt')})">
  385. <option value="">请选择</option>
  386. <%=Get_FildValue_List("select TID,'分类:'+ClassName+'--主题:'+Theme from FS_VS_Theme A,FS_VS_Class B where A.CID=B.CID",TID,1)%>
  387. </select>
  388. <span id="TID_Alt"></span>
  389.   </td>
  390.     </tr>
  391.     <tr  class="hback"> 
  392.       <td align="right">选项描述</td>
  393.       <td>
  394. <input type="text" name="ItemName" id="ItemName" size="50" maxlength="200" onFocus="Do.these('ItemName',function(){return isEmpty('ItemName','ItemName_Alt')})" onKeyUp="Do.these('ItemName',function(){return isEmpty('ItemName','ItemName_Alt')})" value="<%if Bol_IsEdit then response.Write(VS_Rs("ItemName")) end if%>">
  395. <span id="ItemName_Alt"></span>
  396.   </td>
  397.     </tr>
  398.     <tr  class="hback"> 
  399.       <td align="right">项目符号</td>
  400.       <td>
  401. <select name="ItemValue" id="ItemValue">
  402. <%=PrintOption(ItemValue,":请选择,A-Z:A-Z,a-z:a-z,1-9:1-9,·:·,else:"&ItemValue)%>
  403. </select>
  404. <span  class="tx">A-Z,a-z,1-9或其它不递增的符号&nbsp;</span>
  405. <span id="ItemValue_Alt"></span>
  406.   </td>
  407.     </tr>
  408.     <tr  class="hback"> 
  409.       <td align="right">选项模式</td>
  410.       <td> <select name="ItemMode" id="ItemMode" onChange="Do.these('ItemMode',function(){return isEmpty('ItemMode','ItemMode_Alt')}); this.options[this.selectedIndex].value=='3'?PicSrc.disabled=false:PicSrc.disabled=true;">
  411.           <%=PrintOption(ItemMode,":请选择,1:文字描述模式,2:自主填写模式,3:图片模式")%> 
  412.         </select>
  413. <span  class="tx">选择自主填写模式,文字后可以多个录入框,建议选择&nbsp;</span>
  414.         <span id="ItemMode_Alt"></span></td>
  415.     </tr>
  416.     <tr  class="hback"> 
  417.       <td align="right">图片位置</td>
  418.       <td>
  419. <input type="text" name="PicSrc" id="PicSrc" readonly="" size="50" maxlength="200" value="<%if Bol_IsEdit then response.Write(VS_Rs("PicSrc")) end if%>">
  420. <input type="button" name="bnt_ChoosePic_rowBettween"  value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.form1.PicSrc);">
  421. <span  class="tx">图片位置(针对图片模式而言)&nbsp;</span>
  422. <span id="PicSrc_Alt"></span>
  423.   </td>
  424.     </tr>
  425.     <tr  class="hback"> 
  426.       <td align="right">显示颜色</td>
  427.       <td>
  428. <input type="text" name="DisColor" id="DisColor" size="15" readonly="" maxlength="8" <%if DisColor<>"" then response.Write("style=""background-color:"&DisColor&"""") end if%> value="<%=DisColor%>">
  429.         <img src="../Images/rectNoColor.gif" width="18" height="17" border=0 align="absmiddle" id="TitleFontColor_Show" style="cursor:pointer;background-color:;" title="选取颜色!" onClick="GetColor(this,'DisColor');"> 
  430.         <span  class="tx">统计时显示颜色如#FF0000&nbsp;</span> <span id="DisColor_Alt"></span>
  431.       </td>
  432.     </tr>
  433.     <tr  class="hback"> 
  434.       <td align="right">当前票数</td>
  435.       <td>
  436. <input type="text" name="VoteCount" id="VoteCount" size="50" maxlength="5" onFocus="Do.these('VoteCount',function(){return isEmpty('VoteCount','VoteCount_Alt')})" onKeyUp="Do.these('VoteCount',function(){return isEmpty('VoteCount','VoteCount_Alt')})" value="<%=VoteCount%>">
  437. <span id="VoteCount_Alt"></span>
  438.   </td>
  439.     </tr>
  440.     <tr  class="hback"> 
  441.       <td align="right">选项详细说明</td>
  442.       <td>
  443. <textarea name="ItemDetail" cols="50" rows="15" id="ItemDetail"><%if Bol_IsEdit then response.Write(VS_Rs("ItemDetail")) end if%></textarea>
  444. <span id="ItemDetail_Alt"></span>
  445.   </td>
  446.     </tr>
  447.    <tr class="hback"> 
  448.       <td colspan="4">
  449.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  450.           <tr> 
  451.             <td align="center"> <input type="submit"value=" 确定提交 "/> 
  452.               &nbsp; <input type="reset" value=" 重置 " />
  453.      &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("VS_Items.asp?Act=Del&IID="&IID)%>'">
  454.             </td>
  455.           </tr>
  456.         </table>
  457.       </td>
  458.     </tr>
  459.   </form>
  460. </table>
  461. <%
  462. End Sub
  463. set VS_Rs = Nothing
  464. Conn.close
  465. %>
  466. <script language="JavaScript">
  467. <!--//判断后将排序完善.字段名后面显示指示
  468. //打开后根据规则显示箭头
  469. var Req_FildName;
  470. if (Old_Sql.indexOf("filterorderby=")>-1)
  471. {
  472. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  473. for(var ii=0;ii<tmp_arr_.length;ii++)
  474. {
  475. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  476. {
  477. if(Old_Sql.indexOf("csed")>-1)
  478. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
  479. else
  480. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
  481. }
  482. }
  483. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  484. {
  485. if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
  486. {
  487. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  488. }
  489. else
  490. {
  491. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  492. }
  493. }
  494. }
  495. ///////////////////////////////////////////////////////// 
  496. function chkinput()
  497. {
  498. return isEmpty('TID','TID_Alt') && isEmpty('ItemName','ItemName_Alt') && isEmpty('ItemMode','ItemMode_Alt') && isEmpty('VoteCount','VoteCount_Alt');
  499. }
  500. function getOffsetTop(elm) {
  501. var mOffsetTop = elm.offsetTop;
  502. var mOffsetParent = elm.offsetParent;
  503. while(mOffsetParent){
  504. mOffsetTop += mOffsetParent.offsetTop;
  505. mOffsetParent = mOffsetParent.offsetParent;
  506. }
  507. return mOffsetTop;
  508. }
  509. function getOffsetLeft(elm) {
  510. var mOffsetLeft = elm.offsetLeft;
  511. var mOffsetParent = elm.offsetParent;
  512. while(mOffsetParent) {
  513. mOffsetLeft += mOffsetParent.offsetLeft;
  514. mOffsetParent = mOffsetParent.offsetParent;
  515. }
  516. return mOffsetLeft;
  517. }
  518. function GetColor(img_val,input_val)
  519. {
  520. var PaletteLeft,PaletteTop
  521. var obj = document.getElementById("colorPalette");
  522. ColorImg = img_val;
  523. ColorValue = document.getElementById(input_val);
  524. if (obj){
  525. PaletteLeft = getOffsetLeft(ColorImg)
  526. PaletteTop = (getOffsetTop(ColorImg) + ColorImg.offsetHeight)
  527. if (PaletteLeft+150 > parseInt(document.body.clientWidth)) PaletteLeft = parseInt(event.clientX)-260;
  528. obj.style.left = PaletteLeft + "px";
  529. obj.style.top = PaletteTop + "px";
  530. if (obj.style.visibility=="hidden")
  531. {
  532. obj.style.visibility="visible";
  533. }else {
  534. obj.style.visibility="hidden";
  535. }
  536. }
  537. }
  538. function setColor(color)
  539. {
  540. if(ColorImg.id=="FontColorShow"&&color=="#") color='#000000';
  541. if(ColorImg.id=="FontBgColorShow"&&color=="#") color='#FFFFFF';
  542. if (ColorValue){ColorValue.value = color.substr(1);}
  543. if (ColorImg && color.length>1){
  544. ColorImg.src='../Images/Rect.gif';
  545. ColorImg.style.backgroundColor = color;
  546. }else if(color=='#'){ ColorImg.src='../Images/rectNoColor.gif';}
  547. document.getElementById("colorPalette").style.visibility="hidden";
  548. }
  549. -->
  550. </script>
  551. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->