|
 |
<%
dim pagetype,username,password
pagetype=request.form("pagetype")
if pagetype<>"" then
username=request.form("username")
password=request.form("password")
dim conn
dim connstr
db="check.mdb" '数据库文件位置
'on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
set rs=server.createobject("ADODB.RECORDSET")
rs.open"select * from check where username='"&username&"' and password='"&password&"'",conn,1,1
if rs.eof or rs.bof then
response.write("
用户名或密码错误,重新登录 ")
else
session("checked")=password
response.redirect("download.asp")
end if
else
if session("checked")="" then
call check()
else
call show()
end if
end if
%>
<% sub check() %>
If you are not a memember of our biotek
now,
please first sign up with your details as follows, we will contact
you soon. |
<% end sub %>
<% sub show %>
<% end sub %>
|
 |