votejs.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<%session.CodePage="936"%>
<%
response.Charset="gb2312"
Dim Steps,TID,Cookie_Domain,OutHtmlID
''前台页面,由JS调用得到 调用该文件必须给定一些参数.
TID = request.QueryString("TID")
OutHtmlID = request.QueryString("InfoID")
if OutHtmlID = "" then OutHtmlID = "Vote_HTML_ID"
if TID = "" or not isnumeric(TID) then response.Write("document.writeln('内部错误:调用时,TID必须提供.\n');"&vbNewLine)

Cookie_Domain = request.Cookies("FoosunMFCookies")("FoosunMFDomain")
if Cookie_Domain="" then 
	Cookie_Domain = "localhost"
else
	if left(lcase(Cookie_Domain),len("http://"))="http://" then Cookie_Domain = mid(Cookie_Domain,len("http://")+1)
	if right(Cookie_Domain,1)="/" then Cookie_Domain = mid(Cookie_Domain,1,len(Cookie_Domain) - 1)
end if	
response.Write("<!--"&vbNewLine)
response.Write("//第一次的请求code by awen ueuo.cn网络收藏夹"&vbNewLine)
response.Write("function f_FirstGetVote_awen() {new Ajax.Updater('"&OutHtmlID&"', 'http://"&Cookie_Domain&"/Vote/Index.asp?no-cache='+Math.random() , {method: 'get', parameters: 'TID="&TID&"&InfoID="&OutHtmlID&"' })}; "&vbNewLine)
response.Write("setTimeout('f_FirstGetVote_awen()',200);"&vbNewLine)
response.Write("-->"&vbNewLine)
%>