selecttable.asp

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

ASP

36 行

<% option explicit%>
<!-- #include virtual="DataEnvi.asp" -->
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim StrOption,StrCName
	Dim StrTableName,StrFieldName
	
	StrTableName = Request.QueryString("TableName")
	StrFieldName = Request.QueryString("FieldName")
	
	Set ObjDB = SErver.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	
	StrSQL = "Select " & StrFieldName & " As KeyValue,Count(" & StrFieldName & ") As CC From " & StrTableName & " Group By " & StrFieldName & " Order By CC"
	Set ObjRS = ObjDB.Execute(StrSQL)
	
	While Not ObjRS.EOf
		StrOption = StrOption & "<option value='" & ObjRS("KeyValue") & "'>" & ObjRS("KeyValue") & "</option>" & Vbcrlf
		ObjRS.MoveNext
	Wend
	
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.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 + -

显示快捷键?

selecttable.asp

selecttable.asp - 源码说明

⌨️ 快捷键说明