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

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

数据库编程

开发平台：

ASP/ASPX

Index.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <% Option Explicit %>
  3. <%session.CodePage="936"%>
  4. <!--#include file="../FS_Inc/Const.asp" -->
  5. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  6. <!--#include file="../FS_Inc/Function.asp" -->
  7. <%
  8. Response.Buffer = True
  9. Response.Expires = -1
  10. Response.ExpiresAbsolute = Now() - 1
  11. Response.Expires = 0
  12. Response.CacheControl = "no-cache"
  13. response.Charset = "gb2312"
  14. Dim Conn,User_Conn,VS_RS,VS_Sql,VS_RS1,VS_Sql1,VS_RS2,VS_Sql2,strShowErr ,IPInterView,IsSigned, TID,ShowType,ff_row_ii,MaxNum
  15. Dim TmpStr,TmpStr1,Steps,DB_Steps,Cookie_Domain,OutHtmlID,PicW
  16. ff_row_ii = 1 : DB_Steps = 0
  18. MF_Default_Conn
  20. Cookie_Domain = Get_MF_Domain() 
  21. if Cookie_Domain="" then  
  22. Cookie_Domain = "localhost"
  23. else
  24. if left(lcase(Cookie_Domain),len("http://"))="http://" then Cookie_Domain = mid(Cookie_Domain,len("http://")+1)
  25. if right(Cookie_Domain,1)="/" then Cookie_Domain = mid(Cookie_Domain,1,len(Cookie_Domain) - 1)
  26. end if
  27. ''前台页面,由JS调用得到 调用该文件必须给定一些参数.
  28. TID = NoSqlHack(request.QueryString("TID"))
  29. Steps = NoSqlHack(request.QueryString("Steps"))
  30. OutHtmlID = NoSqlHack(request.QueryString("InfoID"))
  31. PicW = request.QueryString("PicW")
  32. if TID="" or not isnumeric(TID) then call HtmEnd("投票参数错误!")
  33. if Steps="" or isnull(Steps) or not isnumeric(Steps) then Steps = 1
  34. if OutHtmlID = "" then OutHtmlID = "Vote_HTML_ID"
  35. if PicW = "" or not isnumeric(PicW) then PicW = 100
  37. ''''''''''''''''''''' 
  38. Call Show
  39. ''''''''''''''''''''
  41. Sub Show()
  42. ''选出最近的一步
  43. VS_Sql2 = "select top 1 * from FS_VS_Steps where TID = "&TID&" and Steps>="&Steps&" order by TID,Steps"
  44. Set VS_RS2 = CreateObject(G_FS_RS)
  45. VS_RS2.Open VS_Sql2,Conn,1,1
  46. if VS_RS2.eof then
  47. VS_Sql = "select * from FS_VS_Theme where TID = "&TID
  48. else
  49. DB_Steps = Conn.execute("select Count(*) from FS_VS_Steps where TID = "&TID)(0)
  50. VS_Sql = "select * from FS_VS_Theme where TID = "&VS_RS2("QuoteID")
  51. end if
  52. If G_IS_SQL_DB = 1 Then
  53. VS_Sql = VS_Sql&" AND (getdate() between StartDate and EndDate)"
  54. else
  55. VS_Sql = VS_Sql&" AND (now() between StartDate and EndDate)"
  56. end if
  57. 'response.Write(VS_Sql)
  58. set VS_RS = Conn.execute(VS_Sql) 
  59. if Not VS_RS.eof then 
  60. if VS_RS("Type") = 2 then 
  61. MaxNum = VS_RS("MaxNum")
  62. else
  63. MaxNum = 1
  64. end if
  65. response.Write("<table width=""100%""  border=""0"" cellspacing=""3"" cellpadding=""0""> "&vbnewline)
  66. response.Write("<form name=voteForm id=voteForm method=""post"" onSubmit=""if(document.getElementById('ItemsInput')!=null){new Ajax.Updater('Ajax_TPInfo', 'http://"&Cookie_Domain&"/Vote/Vote_Ajax.asp?TID="&VS_RS("TID")&"&ItemsInput='+$('ItemsInput').value+'&MaxNum="&MaxNum&"&no-cache='+Math.random() , {method: 'post', parameters: Form.serialize(this) });}; else {new Ajax.Updater('Ajax_TPInfo', 'http://"&Cookie_Domain&"/Vote/Vote_Ajax.asp?TID="&VS_RS("TID")&"&MaxNum="&MaxNum&"&no-cache='+Math.random() , {method: 'post', parameters: Form.serialize(this) });};return false;""> "&vbnewline)
  67. response.Write("<tr> "&vbnewline)
  68. response.Write("<td width=""3%"" height=""18"">&nbsp;</td> "&vbnewline)
  69. response.Write("<td width=""3%""><img src=""Img/3.jpg"" width=""9"" height=""9""></td> "&vbnewline)
  70. response.Write("<td style=""cursor:hand"" onclick=""if(TR_"&VS_RS("TID")&".style.display='none') TR_"&VS_RS("TID")&".style.display=''; else TR_"&VS_RS("TID")&".style.display='none';"">"&VS_RS("Theme")&"</td> "&vbnewline)
  71. response.Write("<td width=""3%"">&nbsp;</td> "&vbnewline)
  72. response.Write("</tr> "&vbnewline)
  73. response.Write("<tr id=""TR_"&VS_RS("TID")&""" style=""display:'none'""> "&vbnewline)
  74. response.Write("<td>&nbsp;</td> "&vbnewline)
  75. response.Write("<td><img src=""Img/5.jpg"" width=""6"" height=""6""></td> "&vbnewline)
  76. response.Write("<td style=""font-size:11px;color:#666666"">Begin:"&formatdatetime(VS_RS("StartDate"),0)&" End:"&formatdatetime(VS_RS("EndDate"),0)&"</td> "&vbnewline)
  77. response.Write("<td>&nbsp;</td> "&vbnewline)
  78. response.Write("</tr> "&vbnewline)
  79. response.Write("<tr> "&vbnewline)
  80. response.Write("<td>&nbsp;</td> "&vbnewline)
  81. response.Write("<td>&nbsp;</td> "&vbnewline)
  82. response.Write("<td> "&vbnewline)
  83. if VS_RS2.eof then 
  84. VS_Sql1 = "select * from FS_VS_Items where TID = "&TID
  85. else
  86. VS_Sql1 = "select * from FS_VS_Items where TID = "&VS_RS2("QuoteID")
  87. end if
  88. Set VS_RS1 = CreateObject(G_FS_RS)
  89. VS_RS1.Open VS_Sql1,Conn,1,1
  90. response.Write( "<!--++++++++++++++++循环主体开始++++++++++++++++-->"&vbnewline )
  91. do while Not VS_RS1.eof
  92. response.Write( radboxItemMode(VS_RS1("ItemMode")) &vbnewline )
  93. ff_row_ii = ff_row_ii + 1
  94. VS_RS1.movenext
  95. loop
  96. response.Write( "<!--++++++++++++++++循环主体结束++++++++++++++++-->"&vbnewline )
  97. VS_RS1.close
  98. response.Write("</td> "&vbnewline)
  99. response.Write("<td>&nbsp;</td> "&vbnewline)
  100. response.Write("</tr> "&vbnewline)
  101. response.Write("<tr> "&vbnewline)
  102. response.Write("<td>&nbsp;</td> "&vbnewline)
  103. response.Write("<td>&nbsp;</td> "&vbnewline)
  104. response.Write("<td align=left> "&vbnewline)
  105. if VS_RS2.recordcount<=0 then 
  106. response.Write("<input type=""submit"" value="" 提 交 "" style=""width:80px;height:23px;""> "&vbnewline)
  107. else
  108. if cint(Steps)>1 then response.Write("<input type=""button"" value="" 上一步 "" style=""width:80px;height:23px; "" onClick=""new Ajax.Updater('"&OutHtmlID&"', 'http://"&Cookie_Domain&"/Vote/Index.asp?no-cache='+Math.random() , {method: 'get', parameters: 'TID="&TID&"&Steps="&Steps-1&"&InfoID="&OutHtmlID&"&PicW="&PicW&"' });""> "&vbnewline)
  109. response.Write("<input type=""submit"" value="" 提 交 "" style=""width:80px;height:23px; ""> "&vbnewline)
  110. if cint(Steps)<DB_Steps then response.Write("<input type=""button"" value="" 下一步 "" style=""width:80px;height:23px; "" onClick=""new Ajax.Updater('"&OutHtmlID&"', 'http://"&Cookie_Domain&"/Vote/Index.asp?no-cache='+Math.random() , {method: 'get', parameters: 'TID="&TID&"&Steps="&Steps+1&"&InfoID="&OutHtmlID&"&PicW="&PicW&"' });""> "&vbnewline)
  111. end if
  112. response.Write(" <input type=""button"" value=""查看结果""  style=""width:80px;height:23px;"" onClick=""window.open('http://"&Cookie_Domain&"/Vote/View.asp?TID="&TID&"&Title="&server.URLEncode(Conn.execute("select Theme from FS_VS_Theme where TID = "&TID)(0))&"');"">")
  113. if VS_RS2.recordcount>0 then response.Write("&nbsp;"&Steps&"/"&DB_Steps&"")
  114. response.Write("</td> "&vbnewline)
  115. response.Write("<td>&nbsp;</td> "&vbnewline)
  116. response.Write("</tr> "&vbnewline)
  117. response.Write("<tr> "&vbnewline)
  118. response.Write("<td>&nbsp;</td> "&vbnewline)
  119. response.Write("<td>&nbsp;</td> "&vbnewline)
  120. response.Write("<td id=""Ajax_TPInfo"">&nbsp;</td> "&vbnewline)
  121. response.Write("<td>&nbsp;</td> "&vbnewline)
  122. response.Write("</tr> "&vbnewline)
  123. response.Write("</form> "&vbnewline)
  124. response.Write("</table> "&vbnewline)
  125. else
  126. response.Write("没有记录. "&vbnewline)
  127. end if
  128. VS_RS.close
  129. VS_RS2.close
  130. End Sub
  132. '选项模式:1:文字描述模式2:自主填写模式(文字后可以多个录入框)3:图片模式
  133. ''单选,多选
  134. Function radboxItemMode(TType)
  135. ''选项名称
  136. Dim ThisFun_Str,f_ItemValue_,rad_box
  137. TmpStr = "" : TmpStr1 = "" : ThisFun_Str = ""
  138. if VS_RS("Type") = 1 then 
  139. rad_box = "radio"
  140. elseif VS_RS("Type") = 2 then 
  141. rad_box = "checkbox"
  142. else
  143. exit function
  144. end if
  145. f_ItemValue_ = VS_RS1("ItemValue")
  146. select case f_ItemValue_
  147. case "1-9"
  148. f_ItemValue_ = ff_row_ii &"."
  149. case "A-Z"
  150. f_ItemValue_ = chr(64+ff_row_ii) &"."
  151. case "a-z"
  152. f_ItemValue_ = chr(96+ff_row_ii) &"."
  153. case else
  154. end select
  156. if VS_RS1("DisColor")<>"" then 
  157. TmpStr = "<font color="""&VS_RS1("DisColor")&""">"&f_ItemValue_&" "&VS_RS1("ItemName")&"</font> "&vbNewLine
  158. else
  159. TmpStr = ""& f_ItemValue_&" "&VS_RS1("ItemName")&" "&vbNewLine
  160. end if
  161. select case TType
  162. case 1
  163. if VS_RS("ItemMode") = 0 then 
  164. ''横向
  165. else
  166. if ff_row_ii mod VS_RS("ItemMode") = 0 then 
  167. TmpStr = TmpStr & "<br /> "&vbNewLine
  168. end if
  169. end if
  170. if request.Cookies("FS_Cookies")(cstr(VS_RS1("TID"))&"_IID")<>"" and instr(cstr(request.Cookies("FS_Cookies")(cstr(VS_RS1("TID"))&"_IID")),","&cstr(VS_RS1("IID"))&",") then
  171. ThisFun_Str = ThisFun_Str & "<input name=""Items"" type="""&rad_box&""" value="""&VS_RS1("IID")&""" checked> "&vbNewLine&TmpStr&vbNewLine
  172. else
  173. ThisFun_Str = ThisFun_Str & "<input name=""Items"" type="""&rad_box&""" value="""&VS_RS1("IID")&"""> "&vbNewLine&TmpStr&vbNewLine
  174. end if
  175. case 2
  176. TmpStr = TmpStr&"<input type=text name=""ItemsInput"" id=""ItemsInput"" value="""&request.Cookies("FS_Cookies")(cstr(VS_RS1("TID"))&"_ItemValue")&""" size=15 maxlength=25> "&vbNewLine
  177. if VS_RS("ItemMode") = 0 then 
  178. ''横向
  179. else
  180. if ff_row_ii mod VS_RS("ItemMode") = 0 then 
  181. TmpStr = TmpStr & "<br /> "&vbNewLine
  182. end if
  183. end if
  184. if request.Cookies("FS_Cookies")(cstr(VS_RS1("TID"))&"_IID")<>"" and instr(cstr(request.Cookies("FS_Cookies")(cstr(VS_RS1("TID"))&"_IID")),","&cstr(VS_RS1("IID"))&",") then
  185. ThisFun_Str = ThisFun_Str & "<input name=""Items"" type="""&rad_box&""" value="""&VS_RS1("IID")&""" checked> "&vbNewLine&TmpStr&vbNewLine
  186. else
  187. ThisFun_Str = ThisFun_Str & "<input name=""Items"" type="""&rad_box&""" value="""&VS_RS1("IID")&"""> "&vbNewLine&TmpStr&vbNewLine
  188. end if
  189. case 3
  190. if VS_RS1("PicSrc")<>"" then 
  191. TmpStr1 = "<img src=""http://"&Cookie_Domain&VS_RS1("PicSrc")&""" title=""点开查看大图:"&f_ItemValue_&" "&VS_RS1("ItemName")&""" onload=""if (this.offsetWidth>"&PicW&") this.width="&PicW&";"" style=""cursor:hand"" onclick=""window.open('http://"&Cookie_Domain&VS_RS1("PicSrc")&"');"" />"
  192. else
  193. TmpStr1 = "<img src=""http://"&Cookie_Domain&"/Vote/Img/NoPic.jpg"" title="""&f_ItemValue_&" "&VS_RS1("ItemName")&""" onload=""if (this.offsetWidth>"&PicW&") this.width="&PicW&";"" />"
  194. end if
  195. if ff_row_ii = 1 then ThisFun_Str = ThisFun_Str & "<table border=0 cellpadding=""0"" cellspacing=""5""><tr> "&vbNewLine
  196. ThisFun_Str = ThisFun_Str & "<td align=center>"&TmpStr1&"<br /> "&vbNewLine
  197. if request.Cookies("FS_Cookies")(cstr(VS_RS1("TID"))&"_IID")<>"" and instr(cstr(request.Cookies("FS_Cookies")(cstr(VS_RS1("TID"))&"_IID")),","&cstr(VS_RS1("IID"))&",") then
  198. ThisFun_Str = ThisFun_Str & "<input name=""Items"" type="""&rad_box&""" value="""&VS_RS1("IID")&""" checked> "&vbNewLine&TmpStr&"</td> "&vbNewLine
  199. else
  200. ThisFun_Str = ThisFun_Str & "<input name=""Items"" type="""&rad_box&""" value="""&VS_RS1("IID")&"""> "&vbNewLine&TmpStr&"</td> "&vbNewLine
  201. end if
  202. if VS_RS("ItemMode") = 0 then 
  203. ''横向
  204. else
  205. if ff_row_ii mod VS_RS("ItemMode") = 0 then 
  206. ThisFun_Str = ThisFun_Str & "</tr><tr> "&vbNewLine
  207. else
  208. end if
  209. end if
  210. if ff_row_ii = VS_RS1.recordcount then ThisFun_Str = ThisFun_Str & "</tr></table> "&vbNewLine
  211. end select
  212. radboxItemMode = ThisFun_Str
  213. End Function
  214. ''====================
  216. Function HtmEnd(Msg)
  217. ConnClose
  218. response.Write(""&Msg&" "&vbnewline)
  219. response.End()
  220. End Function
  222. Sub ConnClose()
  223. Set Conn = Nothing
  224. End Sub
  225. %>