asp+access返回json数据+layui select下拉菜单联动展示实例

前端：x-admin框架

后端：asp+access数据库(vbscript)

首先这个实例是用vb写的，是asp不是asp.net

aspx与asp是不同的，asp是一个运行环境，默认的脚本语言是vb，

aspx是asp.net的一种文件类型 可用c#也可用vb

其次 asp中并没有能直接返回json格式的函数或者类，需要引入一个json.asp，完整实例代码在文末

 

数据库：databases.mdb

college (院系表)

major(专业表)

前端展示页代码(select.asp)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

  
<%
'打开数据库连接
dim conn,connstr,db,rs
db="databases.mdb"
Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")

conn.Open connstr
%>


    
    
        
        
        
        
        
        
        
		
        
        
       
    
    
        

            

                

                  

                        
                            *院系
                        

                            
							<% set rs=server.CreateObject("adodb.recordset")
								rs.open "select * from college",conn,1,1
								do while not rs.eof%>
								"><%=rs("college")%>
                             <% rs.movenext
								loop%>  
							
                        
                    
					
					

                        
                            *专业
                        

                            
								
							
                        
                    
                 
                  
                  
				 
                
                  
              
            
        
         
			
       
    

效果

 

后端代码(test.asp)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
'打开数据库连接
dim conn,connstr,db,rs
db="databases.mdb"
Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")

conn.Open connstr
%>
<%
dim json : set json = jsObject()
dim list : set list = jsArray()
dim val,item

val=Request("val")

Response.ContentType = "text/json"
set rs=conn.execute("select * from major where college_id = "&val)


set json("data") = list
Do while not (rs.eof or rs.bof)
	set list(null) = jsObject()
	for each item in rs.fields
		list(null)(item.Name) = item.Value
	next
	rs.movenext
Loop	
Response.Write(json.jsString)
%>

效果

需要注意 如果是需要返回一维json格式，后端可以直接这样写，不必用循环

json("data")="xxx"

 

完整代码

https://gitee.com/gdhsxuan/asp-json-select

里面有个 演示网站用的iis.exe

直接打开就可以，不用再搭iis的环境