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 %>