const.asp

来自「ASP原码」· ASP 代码 · 共 44 行

<%
	NA="N/A"

	CONST AdOpenForwardOnly = 0
	CONST AdOpenStatic = 3
	CONST AdOpenkeyset = 1
	CONST AdOpenDynamic = 2
	CONST adLOckReadOnly = 1
	CONST adLockPessimistic =2
	CONST adLockOptimistic = 3
	CONST adLockBatchOptimistic = 4
	
	UTP_ADMIN=0
	UTP_TEACHER=1
	UTP_STUDENT=2
	UTP_CLASSADMIN=3
	UTP_LEADER=4
	UTP_SPECIALIST=5
	UTP_SCHOOLADMIN=6
	
	DSN_ACLASS="DSN=ActiveMeeting;UID=iactive;PWD=iactive1973;"

	WRITE_ACLASS_DB=true    'true/false

	ADMIN_NAME="123456"
	ADMIN_PASSWORD="123456"
%>

<%
	function GetNewID(cn, table_name, id_field_name)
		dim rs
		set rs=server.CreateObject("ADODB.recordset")
		rs.Open "Select max("&id_field_name&") from "&table_name&"", cn,0,1
	
		if isnull(rs.Fields(0)) then
			GetNewID=1
		else 
			GetNewID=rs.Fields(0)+1
		end if
		
		rs.Close
	End function
%>