📄 selectlinktable.asp
字号:
<% 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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -