ShowReview.asp
上传用户:jisenq
上传日期:2014-06-29
资源大小:7216k
文件大小:2k
源码类别:

数据库编程

开发平台:

ASP/ASPX

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <% Option Explicit %>
  3. <!--#include file="FS_Inc/Const.asp" -->
  4. <!--#include file="FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="FS_Inc/Function.asp" -->
  6. <%session.CodePage="936"%>
  7. <%
  8. response.Charset="gb2312"
  9. ''前台页面,由JS调用得到 调用该文件必须给定一些参数.
  10. Dim Conn
  11. MF_Default_Conn
  12. Dim stype,Id,SpanId
  13. Dim Server_Name,Server_V1,Server_V2,Cookie_Domain,TmpArr
  14. Cookie_Domain = Get_MF_Domain()
  15. if Cookie_Domain="" then    
  16. Cookie_Domain = "localhost"
  17. else
  18. if left(lcase(Cookie_Domain),len("http://"))="http://" then Cookie_Domain = mid(Cookie_Domain,len("http://")+1)
  19. if right(Cookie_Domain,1)="/" then Cookie_Domain = mid(Cookie_Domain,1,len(Cookie_Domain) - 1)
  20. end if
  21. ''防盗连
  22. Server_Name = Len(Request.ServerVariables("SERVER_NAME"))
  23. Server_V1 = Left(Replace(Cstr(Request.ServerVariables("HTTP_REFERER")),"http://",""),Server_Name)
  24. Server_V2 = Left(Cstr(Request.ServerVariables("SERVER_NAME")),Server_Name)
  25. if Server_V1 <> Server_V2 and Server_V1 <> "" and Server_V2 <> "" then
  26. call HTMLEnd("没有权限,请访问"&Cookie_Domain)
  27. end if
  28. stype = request.QueryString("type") 'NS
  29. Id = request.QueryString("Id") 'Id
  30. SpanId = Trim(request.QueryString("SpanId")) '
  31. If SpanId="" Then
  32. Response.End()
  33. Else
  34. If stype="" Then
  35. Call HTMLEnd("",SpanId)
  36. End If
  37. If Id="" Or Not isnumeric(Id) Then
  38. Call HTMLEnd("",SpanId)
  39. End If
  40. End If
  41. Sub HTMLEnd(Info,SpanId)
  42. response.Write("$('"&SpanId&"').innerHTML='';"&vbNewLine)
  43. response.End()
  44. End Sub
  45. response.Write("//show_review的请求code by awen"&vbNewLine)
  46. response.Write("function f_review_"&spanid&"() {new Ajax.Updater('"&SpanId&"', 'http://"&Cookie_Domain&"/ShowReview_Ajax.asp?no-cache='+Math.random() , {method: 'get', parameters: 'type="&stype&"&Id="&Id&"&SpanId="&SpanId&"' })};"&vbNewLine)
  47. response.Write("setTimeout('f_review_"&spanid&"()',100);"&vbNewLine)
  48. Conn.close
  49. Set Conn=Nothing
  50. %>