<%
Dim objDC, objRS
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
' 创建数据库连接
objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"
' 使用Access数据库
objDC.Open Application("SQLConnString"), Application("SQLUsername"),
Application("SQLPassword")
Set objRS = Server.CreateObject("ADODB.Recordset")
' 创建记录集并进行检索
' 使用前向游标(0)和只读模式(1)打开记录集
' 如果特定的id请求被读取,则显示
If Len(Request.QueryString("id")) <> 0 Then
' 根据id读取相应的记录
objRS.Open "select * from intelsdb WHERE id=" & Request.QueryString("id"), objDC, 0, 1
' 显示已选择的记录
If Not objRS.EOF Then
objRS.MoveFirst
%>
<TABLE BORDER=2>
<tr>
<td><B>ID </B></td>
<td><B>姓名</B></td>
<td><B>部门</B></td>
<td><B>月度销售</B></td>
</tr>
<tr>
<td ALIGN="center"><%= objRS.Fields("id") %></td>
<td ALIGN="left"><%= objRS.Fields("name") %></td>
<td ALIGN="left"><%= objRS.Fields("department ") %></td>
<td ALIGN="right"><%= objRS.Fields("sales") %></td>
</tr>
</TABLE>
<%
End If
objRS.Close
End If
objRS.Open "intelsdb", objDC, 0, 1
' 循环读完记录集并显示结果
If Not objRS.EOF Then
objRS.MoveFirst
' 下面这个表格会调用本次在QueryString 里id的内容
%>
<FORM ACTION="./db_pulldown.asp" METHOD="get">
<select NAME="id">
<OPTION></OPTION>
<%
' 直到读完记录集.
Do While Not objRS.EOF
' 对每条记录,为员工id创建一个选择标签并设置相应的值
%>
<OPTION VALUE="<%= objRS.Fields("id") %>"><%= objRS.Fields("name") %></OPTION>
<%
' 获取下一个记录
objRS.MoveNext
Loop
%>
</select>
<INPUT type="submit" value="Submit">
</FORM>
<%
End If
' 关闭并清空
objRS.Close
Set objRS = Nothing
objDC.Close
Set objDC = Nothing
%>
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
更新日志
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]