manager.asp

来自「用ASP写的电子购物系统」· ASP 代码 · 共 71 行

<% REM This file gets included by all Commerce Server pages %>
<%
function checklength(sendstr,strlength)
   if len(sendstr)>strlength then 
         checklength=null 
   else 
         checklength=sendstr
   end if
   if isempty(checklength) then checklength=null 
   if sendstr="" then checklength=null 
end function 

function checknum(sendstr,strlength)

   if len(sendstr)>strlength then 
         checknum=null 
   else 
         checknum=sendstr
   end if
   if IsNumeric(sendstr)=false  then 
         checknum= null
   end if
   if not isnull(checknum) then
		if Cint(sendstr)<0 then 
		    checknum=null
		end if
   end if
   if isempty(sendstr) then checknum=null
end function
%>


<%
REM -- ADO command types
adCmdText       = 1 
adCmdTable      = 2 
adCmdStoredProc = 4
adCmdUnknown    = 8

REM -- ADO cursor types
adOpenForwardOnly = 0
adOpenKeyset      = 1
adOpenDynamic     = 2
adOpenStatic      = 3

REM -- ADO lock types
adLockReadOnly        = 1
adLockPessimistic     = 2
adLockOptimistic      = 3
adLockBatchOptimistic = 4

thcolor4="#CCCC99"
tdcolor4="#E8E8FF"
tdleft4="#F2F3F1"

REM -- Create ADO Connection and Command Objects
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("ConnectString")

Set cmdTemp = Server.CreateObject("ADODB.Command")
cmdTemp.CommandType = adCmdText
Set cmdTemp.ActiveConnection = conn

Set cmdprod = Server.CreateObject("ADODB.Command")
cmdprod.CommandType = adCmdText
Set cmdprod.ActiveConnection = conn
%>