sysfunc.inc.asp

来自「商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会」· ASP 代码 · 共 53 行

<%
function selectxh(fieldname, ordername, byasc, defaultasc)
	if defaultasc <> "asc" then defaultasc = "desc"

	if fieldname = ordername then
		if byasc = "desc" then
			selectxh = "asc"
		else
			selectxh = "desc"
		end if
	else
		selectxh = defaultasc
	end if
end function

function syskeyno(tablename,fieldname)
	set rsa=server.CreateObject("ADODB.Recordset")
	set rsb=server.CreateObject("ADODB.Recordset")

	sqltext="select * from sys_keyno where tablename='"+tablename+"' and fieldname='"+fieldname+"' "
	rsa.Open sqltext,cn,1,3
	if not rsa.EOF then
		rsa("currvalue")=rsa("currvalue")+1
		syskeyno=rsa("currvalue")+1
	else
		sqltext="select "+fieldname+" from "+tablename+" order by "+fieldname+" desc"
		rsb.Open sqltext,cn,1,1
		if rsb.EOF then
			currvalue=0
		else
			currvalue=rsb(0)
		end if					
		rsb.Close
		rsa.AddNew
		rsa("tablename")=tablename
		rsa("fieldname")=fieldname
		rsa("currvalue")=currvalue+1
		syskeyno=currvalue+1
	end if
	rsa.Update
	rsa.Close
    set rsa=nothing
    set rsb=nothing
end function

function mydate(dd)
	if dd="" then
		mydate=""
	else
		mydate=year(dd)&"-"&month(dd)&"-"&day(dd)&" "&formatdatetime(dd,4)
	end if	
end function
%>