selectfield.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 35 行

ASP

35 行

<% 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 + =

减小字号Ctrl + -

显示快捷键?

selectfield.asp

selectfield.asp - 源码说明

⌨️ 快捷键说明