📄 selectfield.asp
字号:
<% option explicit%>
<!-- #include virtual="DataEnvi.asp" -->
<%
Dim ObjDB,ObjRS,StrSQL
Dim StrOption,StrCName
Dim StrTableName,i
StrTableName = Request.QueryString("TableName")
Set ObjDB = SErver.CreateObject("Adodb.Connection")
OpenDB ObjDB
If StrTableName<>"" Then
StrSQL = "Select Top 1 * From " & StrTableName
Set ObjRS = ObjDB.Execute(StrSQL)
For i = 0 To ObjRS.Fields.Count-1
StrOption = StrOption & "<option value='" & ObjRS(i).Name & "'>" & ObjRS(i).Name & "</option>" & Vbcrlf
Next
End If
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<title></title>
</HEAD>
<BODY topmargin="0" leftmargin="0" rightmargin="0" bgcolor="#DEDFDE">
<select style="width=100%;height=100%" size=5 onchange="window.returnValue=this.value;window.close()">
<%=StrOption%>
</select>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -