dbtools.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%
'Select Data From Tables
sub Options(InputName, TableName, Field, Selected)
	dim Rstmp
	dim str,myselected
	if selected="" then
	myselected=0
	else
	myselected=selected
	end if
	response.write "<select name="& InputName &" >"
	response.write "<option value=0>请选择..."
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1

	set Rstmp=server.createobject("adodb.recordset")
	str = "select * from "& TableName &" order by id"
	Rstmp.open str, Conn, 1, 1
	while not Rstmp.eof
		if cint(Rstmp("id"))= cint(myselected) then 
			response.write "<option value="&Rstmp("id")&" selected>"&server.htmlencode(trim(Rstmp(field)))
		else
			response.write "<option value="&Rstmp("id")&">"&server.htmlencode(trim(Rstmp(field)))
		end if
		Rstmp.MoveNext
	wend
	Rstmp.close
	set Rstmp=nothing

	response.write "</select>"
end sub

sub Options1(InputName, TableName, Field, Selected)
	dim Rstmp
	dim str,myselected
	if selected="" then
	myselected=0
	else
	myselected=selected
	end if
	response.write "<select name="& InputName &" onchange='document.DocForm.submit();'>"
	response.write "<option value=0>请选择..."
	Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1

	set Rstmp=server.createobject("adodb.recordset")
	str = "select * from "& TableName &" order by id"
	Rstmp.open str, Conn, 1, 1
	while not Rstmp.eof
		if cint(Rstmp("id"))= cint(myselected) then 
			response.write "<option value="&Rstmp("ID")&" selected>"&server.htmlencode(trim(Rstmp(field)))
		else
			response.write "<option value="&Rstmp("ID")&">"&server.htmlencode(trim(Rstmp(field)))
		end if
		Rstmp.MoveNext
	wend
	Rstmp.close
	set Rstmp=nothing

	response.write "</select>"
end sub

function GetTableValue(TableName, ValueField, ID)
	ID=trim(ID)
	dim Rs
	set Rs=server.createobject("adodb.recordset")
	Rs.open "select "&ValueField&" from "& TableName &" where id="& ID, Conn, 1, 1
	if not Rs.eof then
		GetTableValue = trim(Rs(ValueField))
	else
		GetTableValue = ""
	end if
	Rs.close
	set Rs=nothing
end function
%>