
1、把俩列表放进 updatepanel。
2、把列表设置为AUTO POSTBACK
3、第一个选中的值,作为第二个数据绑定的数据源查询条件。
恭喜这样就OK了。
用js先写个带参方法,参数就是2级联动的对象obj
写个ajax data参数就是obj.value, value传给后台获取数据返回给ajax,
然后ajax做你想做的页面处理。。。
<script language="javascript">
function getData(obj) {
var opt = obj.options[obj.selectedIndex]
//alert("The option you select is:"+opt.text+"("+opt.value+")")
$.ajax({
url : "你的url",
type : "Post",
data : 'diqu='+opt.value,
success : function(data1) {
//这里面就可以得到你后台获取过来的数据了,你可以做DOM处理
}
})
}
</script>
<SELECT onchange="getData(this)">
<OPTION value ="1">湖北</OPTION>
<OPTION value="2">湖南</OPTION>
<OPTION value ="3">河北</OPTION>
<OPTION value="4">河南</OPTION>
</SELECT>
5月28日 11:15 将数据库连接做成一个文件,然后哪个文件用的话,可以调用这个文件。。数据库随便放在哪个位置,安全做好就可以了。。你可以 http://www.dwww.cn 首页中选择搜索,输入关键字连接选择ASP,搜索一下。。
下面这个是ASP链接代码,供参考一下。。
'解决了ACCESS数据库路径的问题!
'采用DBType=0或DBType=1来区分AC库还是MSSQL库
'具体采用AC库时应注意的事项,请看程序说明
-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0 '0为Access数据库,1为MSSQL数据库
If(DBType=0) Then
'****************ACCESS数据库******************
Dim DbFolderName,DbFolder_Path,SiteFolder
DbFolderName="ArticleData" '数据库所在文件夹名称
DbFolder_Path = Server.MapPath(DbFolderName) '数据库所在路径
SiteFolder="Article" '系统所在根目录名称
If Session("RootDir") = "" Then
Session("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) &SiteFolder
End if
Set Conn = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)}DBQ=" &Session("RootDir") &"\"&DbFolderName &"\Data.mdb" '连接到数据库
Conn.Open StrConn
'**************************************************
ElseIf(DBType=1) Then
'*****************MSSQL SERVER数据库******
Dim DBUserID,DBPassWord,DBName,DBIP
'修改以下信息以适合你的网站
DBUserID="sa" '数据库登陆名
DBPassWord="" '数据库密码
DBName="dbname" '数据库名称
DBIP="local" '数据库所在地址,如果是本地数据库则为:(local)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1Data Source="&DBIP&"Initial Catalog="&DBName&"Persist Security Info=TrueUser ID="&DBUserID&"Password="&DBPassWord&"Connect Timeout=30"
Conn.Open StrConn
'******************************************************
Else
'***********************数据库设置错误*****************
Response.Write"数据库设置错误,请联系管理员!"
Response.End
End If
'Response.Write StrConn
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)