getvalue.asp

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

<% option explicit%>
<!-- #include virtual="DataEnvi.asp" -->
<!-- #include virtual="String.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS
	Dim IntRows,i
	Dim C
	Dim StrFormName
	
	StrFormName = "RoleID"

	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)
	
	StrSQL ="Select ID,RoleName From t_OA_SYS_Role"
	
	ObjRS = C.List(1,0,StrSQL)
	IntRows = C.GetRows()
	
	ObjDB.Close
	Set ObjDB = Nothing
%>
var t =""
t = t + '<select name="<%=StrFormName%>">'
t = t + '<option value=0>请选择</option>'
<%
For i = 0 To IntRows
%>
t = t + '<option value=<%=ObjRS(0,i)%>><%=ObjRS(1,i)%></option>'
<%
Next
%>
t = t + '</select>'
document.write(t)