shop.asp

用ASP写的电子购物系统

<%
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

thcolor1="#d0e8ff"
tdcolor1="#F4FAFF"
thcolor2="#fbe691"
tdcolor2="#fdf4d5"
thcolor3="#fbe691"
tdcolor3="#fdf4d5"
thcolor4="#CCCC99"
tdcolor4="#E8E8FF"
tdleft4="#F2F3F1"


REM -- Create ADO Connection and Command Objects
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=Web ORA;UID=zj;PWD=zj;"

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

ShopperID=Session("ShopperId") 
%>