<%@LANGUAGE="VBSCRIPT"%>
<%
response.buffer=true
'strconn="DRIVER={SQL Server};server=218.5.74.176;database=jiajunet;uid=jiajunet;pwd=jiajunet#@0701"
'strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="& Server.MapPath("/jiaju.mdb")
'response.Write strconn
'set conn = server.createobject("adodb.connection")
'conn.open strconn
'dim conn,rs,sql
'set conn=Server.CreateObject("ADODB.Connection")
'set rs=Server.CreateObject("Adodb.RecordSet")
'set rs1=Server.CreateObject("Adodb.RecordSet")
'rs.CursorType=3
'conn.CursorLocation=3
'conn.open "dsn=jiajunet;uid=jiajunet;pwd=jiajunet12345"
'Set Cmd=Server.CreateObject("ADODB.COMMAND")
'Cmd.ActiveConnection = conn
dim conn
dim connstr
Set conn= Server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("adodb.recordset")
conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=cw64035 ;Initial Catalog=cw64035_db; Data Source=218.30.96.53;PASSWORD=k3e5n6i3"
%>
<% If request.Form("usr")<>"" Then
set rs = server.CreateObject("adodb.recordset")
sql = "select pwd,mtype from member where usr='"& request.Form("usr") &"'"
rs.open sql,conn,1,1
if rs.eof then
str = "您输入的用户名不存在！"
Else
If rs(0)<>request.Form("pwd") Then
str = "您的密码不正确！"
Else
sql = "update member set num=num+1 where usr='"& request.Form("usr") &"'"
conn.execute sql
session("usr") = request.Form("usr")
session("mtype") = rs(1)
If session("url")<>"" Then
response.Redirect session("url")
Else
response.Redirect "./"
End If
End If
End If
rs.close
End If %>
<%=title_name%>
