pubconn.asp

一个很好的在线购物系统

<%
Response.ExpiresAbsolute=0  
   '**************页面说明****************************
   '功能：建立数据库连接
   '开发者：金寿吉
   '首次开发时间：2001-08-20
   '最后一次修改时间：
   '**********************************************    
        
   dim PubConn '公共连接
   dim datapath '数据库CrmDB路径
   dim ConnString '连接字符串
    
   Set Pubconn=server.CreateObject ("Adodb.Connection")
   
   datapath=Server.MapPath("/UR2")+"/ur2-data.mdb"
  						
      ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password='crm2002';Persist Security Info=False;Data Source="

   ConnString=ConnString+datapath
   PubConn.CursorLocation =3
   PubConn.Open ConnString 
   'Pubconn.Open "driver={SQL Server};server=gjserver;uid=sa;pwd=;database=DBTimes"
   'Pubconn.cursorlocation=3  
 
      
function getdj(mytable,dh,tit)
set rs=server.createobject("adodb.recordset")
sql="select max("+dh+") as num  from "+mytable+"  where left("+dh+",1)='"&tit&"'"

rs.open sql,pubconn,1,3
    djy=year(date())
    djm=month(date())
    djd=day(date())
    if djm<10 then
    djm="0"&djm
    end if
    if djd<10 then
    djd="0"&djd
    end if
	djdate=djy&djm&djd
	

if rs.eof or len(trim(rs("num")))<13 then
fdate=tit&djdate&"0001"
else
if djdate=mid(trim(rs("num")),2,8) then
str=right(trim(rs("num")),6)+1
fdate=tit&djdate&right(str,4)
else
fdate=tit&djdate&"0001"
end if
end if

getdj=trim(fdate)
end function 
'由客户序号得到名称

Function khname(khxh)
  set rskh=server.createobject("adodb.recordset")
  khsql="select ClientName  from D_clientInfo where ClientNum='"&khxh &"'"
  rskh.open khsql,Pubconn,1
  if not rskh.eof then
       khmc=rskh("ClientName")
  else
       khmc="新客户"
  end if 
  khname=khmc
  rskh.close
  set rskh=nothing
End Function

'由人员序号得到名称

Function Pname(PersonID)
  set rsperson=server.createobject("adodb.recordset")
  khsql="select Name  from A_StuffInfo where StuffNum='"&PersonID &"'"
  rsperson.open khsql,Pubconn,1
  if not rsperson.eof then
       ywymc=rsperson("Name")
  else
       ywymc=""
  end if 
  Pname=ywymc
  rsperson.close
  set rsperson=nothing
End Function
'由供货商序号得到名称
Function Gname(GID)
  set rsperson=server.createobject("adodb.recordset")
  khsql="select ProName  from k_tblprovider where proNum='"&GID &"'"
  rsperson.open khsql,Pubconn,1
  if not rsperson.eof then
       ywymc=rsperson("proname")
  else
       ywymc=""
  end if 
  Gname=ywymc
  rsperson.close
  set rsperson=nothing
End Function
'由商品序号得到名称
Function Sname(sID)
 
  set rssp=Server.Createobject("ADODB.recordset")
          sql="select *  from A_ProductInfo where ProdCode='"&sID&"'"
          rssp.open sql,Pubconn,1
         if not rssp.eof then
             spmc=rssp("ProdName")
             ggxh=rssp("Model")+"-"+rssp("stanDard")
             pmgg=spmc+"/"+ggxh
         else
            pmgg=""
        end if 
        Sname=pmgg
   rssp.close
   set rssp=nothing

End Function
   %>