数据库编程

开发平台：

ASP/ASPX

Click.asp：源码内容

							<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<!--#include file="FS_Inc/Const.asp" -->
<!--#include file="FS_InterFace/MF_Function.asp" -->
<!--#include file="FS_Inc/Function.asp" -->
<%session.CodePage="936"%>
<%
response.Charset="gb2312"
''前台页面,由JS调用得到 调用该文件必须给定一些参数.
Dim Conn
MF_Default_Conn
Dim stype,SubSys,spanid
Dim Server_Name,Server_V1,Server_V2,Cookie_Domain,TmpArr
Cookie_Domain = Get_MF_Domain()
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	
''防盗连
Server_Name = Len(Request.ServerVariables("SERVER_NAME"))
Server_V1 = Left(Replace(Cstr(Request.ServerVariables("HTTP_REFERER")),"http://",""),Server_Name)
Server_V2 = Left(Cstr(Request.ServerVariables("SERVER_NAME")),Server_Name)
if Server_V1 <> Server_V2 and Server_V1 <> "" and Server_V2 <> "" then
	call HTMLEnd("没有权限，请访问"&Cookie_Domain,"http://"&Cookie_Domain)
end if
stype = request.QueryString("type") 'ajax
SubSys = request.QueryString("SubSys") 'SubSys
spanid = request.QueryString("spanid") ''NS_id_click_ECB1FJ2E8K82DK9
if stype="" then stype="ajax"
if stype<>"ajax" then call HTMLEnd("Error:type not is ajax!","http://"&Cookie_Domain)
if SubSys="" then call HTMLEnd("Error:SubSys is null!","http://"&Cookie_Domain)
if spanid="" then call HTMLEnd("Error:spanid is null!","http://"&Cookie_Domain)
TmpArr = split(spanid,"_")
if ubound(TmpArr)<>3 then call HTMLEnd("Error:spanid's _ is Err!","http://"&Cookie_Domain)
	
Sub HTMLEnd(Info,URL)
	response.Write("$('"&spanid&"').innerHTML='';"&vbNewLine)
	response.End()
End Sub
response.Write("//Click的请求code by awen"&vbNewLine)
response.Write("function f_Click_"&spanid&"() {new Ajax.Updater('"&spanid&"', 'http://"&Cookie_Domain&"/Click_Ajax.asp?no-cache='+Math.random() , {method: 'get', parameters: 'type="&stype&"&SubSys="&SubSys&"&Get="&request.QueryString("Get")&"&spanid="&spanid&"' })};"&vbNewLine)
response.Write("setTimeout('f_Click_"&spanid&"()',50);"&vbNewLine)
Conn.close
Set Conn=Nothing
%>

						