全球100美排名2017:在asp中连接并对Access 数据库进行操作

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
' ------------ 创建连接数据库 ------------
'注：以 Access 数据库为连接对象，连接对象名为：conn。
Set conn = Server.CreateObject("ADODB.Connection")
cnnStr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("ywzl.mdb")
conn.Open cnnStr
'Set Con = Server.CreateObject("adodb.connection")
'*********输入form,for提交到某一页*********
Sub SubmitTo(url)
Response.Write "<form action="&url&" name=frm method=post></form>"
Response.Write "<script language=javascript>"
Response.Write " frm.submit();"
Response.Write "</script>"
End Sub
'********给出提示信息***********
Sub ShowMessage(word)
Response.Write "<script language=javascript>"
Response.Write " alert('"&word&"');"
Response.Write "</script>"
End Sub
'*********客户端脚本跳转到某一页***********
Sub PageLocation(link)
Response.Write "<script language=javascript>"
Response.Write " window.location = '"&link&"';"
Response.Write "</script>"
End Sub
'******关闭IE窗口**************
sub CloseWindow()
Response.Write "<script language=javascript>"
Response.Write " window.close();"
Response.Write "</script>"
end sub
'*****给出提示信息并换回前一页*****
Sub Go_Back(Num)
Response.Write "<script language=javascript>"
'Response.Write " window.history.back();"
Response.Write " window.history.go("&Num&");"
Response.Write "</script>"
End Sub
'*******过程：执行Sql语句*******函数：Sql为Sql语句***********
sub Execute_Sql(Sql)
'Response.Write "<br>"&Sql
dim Comm
Set Comm = Server.CreateObject("adodb.command")
Set Comm.ActiveConnection = conn
Comm.CommandText = Sql
Comm.Execute
Set Comm = Nothing
'Call ShowMessage("OK")
end sub
'*****过程：判断指纹是不是已经输入过**************
function FpHavaed(FpData,UserName)
dim FpMatch,i,sCount
sCount = 0
Set FpMatch = Server.CreateObject("FPServer.FPClass")
dim Res,Result
Set Res = Server.CreateObject("adodb.recordset")
str_Res = "select * from 指纹表 where UserName='"& UserName &"'"
'str_Res = "select * from 指纹表"
Res.Open str_Res,conn,1,3
While Res.Eof=false
FpDataOld = Res("fpData")
i = FpMatch.Match (FpData,FpDataOld)
if i>0 then
sCount = sCount + 1
end if
'Response.Write "<br>"&Res("ID") & " " & sCount
Res.MoveNext
Wend
Res.Close
Set Res = Nothing
Set FpMatch = Nothing
FpHavaed = sCount
end function
'******'过程：得到回复次数**************
function ResultCount(id)
dim Res,Result
Set Res = Server.CreateObject("adodb.recordset")
'str_Res = "select count(*) as sCount from T_Result where 问题id='"& id &"'"
str_Res = "select * from T_Result where 问题id="& id
Res.Open str_Res,conn,1,3
ResultCount = Res.recordcount
Res.Close
Set Res = Nothing
end function
%>