conn.asp

一个做得非常精美的进存销系统,可惜某些功能上做了限制．

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Conn
Dim Db
Dim ConnStr
	      Db = "data.mdb"
	      'ConnStr = "driver={Microsoft Access Driver (*.mdb)};dbq= " & Server.MapPath(Db)
              ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)   
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write " Error......"
		Response.End
	End If


If Session("ManageName")<>"" and Session("ManagePwd")<>"" and Session("ManageLevel")<>"" Then
Dim pp,kq,nana,pwpw,lele,ppStr
kq = now()
nana = Session("ManageName")
pwpw = Session("ManagePwd")
lele = Session("ManageLevel")
ppStr = "Update [LogNews] Set outTime='"&kq&"' Where loginTime=(Select LoginTime From [HQ_User] Where User_Name='"&nana&"' and PassWord='"&pwpw&"' and Levels='"&lele&"')"
Set pp=Conn.Execute(ppStr)
End if

DIm oo
Dim oo1,oo2,oo3,oo4,oo5,oo6,oo7
Set oo = Conn.Execute("Select Admin,CaiWuYuan,ManJinLi,CaiGouJinLi,CaiGouYuan,KuGuan,Manage From [User_Levels]")
oo1 = oo(0)
oo2 = oo(1)
oo3 = oo(2)
oo4 = oo(3)
oo5 = oo(4)
oo6 = oo(5)
oo7 = oo(6)
oo.Close
Set oo=Nothing
%>