gusucode.com > CRM源码带手机版ASP源码程序 > Plugin/Messages/js/Ajax.asp
<!--#include file="../../../Data/Mssql.asp"--> <% Response.Addheader "Content-Type","text/html; charset=gb2312" Dim conn,connstr,MDBPath Accsql=""&Accsql&"" set rs=server.CreateObject("adodb.recordset") Set conn = Server.CreateObject("ADODB.Connection") MDBPath = Server.MapPath(""&DataPath&"") 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 "Area" Call Area() Case "Trade" Call Trade() End Select Sub Area() Dim rs,sql AreaData = Request.QueryString("AreaData") Response.Write"<select name=""Squares"" class=""int"" 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"<select name=""Strades"" class=""int"" 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 %>