gusucode.com > CRM源码带手机版ASP源码程序 > Skin/Default/Js/Ajax.asp

    <!--#include file="../../../Data/Mssql.asp"-->
<%
if SelectCharset = 1 then
Response.Addheader "Content-Type","text/html; charset=gb2312" 
else
Response.CharSet="GB2312"
end if
Dim conn,connstr,MDBPath
Accsql=""&Accsql&""
set rs=server.CreateObject("adodb.recordset")
Set conn = Server.CreateObject("ADODB.Connection")
MDBPath = Server.MapPath(""&Data_MDBPath&"")
if Accsql="0" then
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDBPath
elseif Accsql="1" then
	Conn.open "Provider=SQLOLEDB;Data Source="&Data_Source&";User ID="&Data_User&";Password="&Data_Password&";Initial Catalog="&Data_Catalog&""
end if

Dim action
action = Trim(Request("action"))

Select Case action
Case "Companys"
    Call Companys()
Case "Area"
    Call Area()
Case "Trade"
    Call Trade()
End Select

Sub Companys()
Dim rs,sql
cCompany = Request.QueryString("Company")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From client Where cCompany = '" & cCompany & "' ",conn,1,1
If rs.RecordCount > 0 Then
    Response.Write("<span class=info_error>已存在</span>")
else
    Response.Write("<span class=info_right>允许录入</span>")
End If
rs.Close
Set rs = Nothing
	
End Sub

Sub Area()
Dim rs,sql
AreaData = Request.QueryString("AreaData")

	Response.Write"<meta http-equiv=""Content-Type"" content=""text/html; charset=GBK"" />"
	Response.Write"<select name=""Squares"" onchange=""getSquare(options[selectedIndex]);"">"
	Response.Write"<option value="""">请选择</option>"
	sql = "Select aName From AreaData Where aFId = '"&AreaData&"' "
	sql = sql &" Order by aId asc"
	Set rs = Conn.Execute(sql)
	If (rs.EOF And rs.BOF) Then
		Response.Write"<option value="""">暂无小类</option>"
	Else
		Do While Not rs.EOF
			Response.Write"<option value="""&rs(0)&""">"&rs(0)&"</option>"
		rs.MoveNext
		Loop
	End If
	Response.Write "</select>"
	Set rs = Nothing

End Sub

Sub Trade()
Dim rs,sql
TradeData = Request.QueryString("TradeData")

	Response.Write"<meta http-equiv=""Content-Type"" content=""text/html; charset=GBK"" />"
	Response.Write"<select name=""Strades"" onchange=""getStrade(options[selectedIndex]);"">"
	Response.Write"<option value="""">请选择</option>"
	sql = "Select pClassname From ProductClass Where pClassFid = '"&TradeData&"' "
	sql = sql &" Order by pClassId asc"
	Set rs = Conn.Execute(sql)
	If (rs.EOF And rs.BOF) Then
		Response.Write"<option value="""">暂无小类</option>"
	Else
		Do While Not rs.EOF
			Response.Write"<option value="""&rs(0)&""">"&rs(0)&"</option>"
		rs.MoveNext
		Loop
	End If
	Response.Write "</select>"
	Set rs = Nothing

End Sub

%>