|
#2
hmhz2008-09-05 09:06
|
test.asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body><form name="form1" action="testchk.asp" method="post">
<input type="text" name="name" >用户 <br>
<input type="password" name="password">密码 <br>
<input type="button" name="tj" value="提交">
<input type="reset" name="cancel" value="取消"><br>
</form>
</body>
</html>
testchk.asp文件
<!--#include file="conn.asp"-->
<%
dim rs,sql,name,password
name=trim(request.form("name"))
password=trim(request.form("password"))
if name<>"" and password<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from user where name='"&name&"' and password='"&password&"'"
rs.open sql,conn,3,3
if not(rs.eof and rs.bof) then
response.write "用户名存在"
else
rs.addnew
rs("name")=name
rs("password")=password
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
else
response.write "用户名和密码不能为空！"
response.end()
end if
%>
