<%
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
更新日志
- 交错战线角色养成攻略一览
- 群星《2024好听新歌27》AI调整音效【WAV分轨】
- 黑鸭子-《伴你二十年》11CD[WAV分轨]
- 魏新雨《为你祈祷+新歌精逊2CD[WAV]
- 影心、明萨拉你选哪个?国外美女COS《博德3》
- 澳洲女子骑车跌入“自杀树”丛 疼痛持续9个月崩溃
- 育碧公布2024“她创力”计划:为女性游戏人提供辅导
- 刘美君.2017-千色·30总选3CD【环球】【WAV+CUE】
- 群星.2022-星河长明电视原声带【乐有奇思】【FLAC分轨】
- 陈淑桦.1995-淑桦盛开Forever【滚石】【WAV+CUE】
- 《再来一张》评测:出师成败皆系“赌”
- 《银河汉堡店》测评:我是银河走菜王!
- 《末日地带2》评测:酣畅淋漓的“和面”之旅
- 萧煌奇《没事的》[320K/MP3][96.22MB]
- 萧煌奇《没事的》[FLAC/分轨][263.38MB]