UC知道asp高手进啊！！！
来源：百度知道 编辑：UC知道 时间：2024/04/27 20:47:55
<html>
<title>保存用户</title>
<head>
<%
dim sql,Vuser,Vpassword,Vpwdchk,Vcmpname,Vcmpaddress,Vphone,Vemail,Vpostalcode,Vnote
Vuser=request("user")
Vpassword=request("password")
Vpwdchk=request("pwdchk")
Vcmpname=request("cmpname")
Vcmpaddress=request("cmpaddress")
Vphone=request("phone")
Vemail=request("email")
Vpostalcode=request("postalcode")
Vnote=request("note")
set conn=server.CreateObject("adodb.connection")
cs="provider=microsoft.jet.oledb.4.0;data source="
conn.connectionstring=cs & server.MapPath("Conndb.mdb")
conn.open
set rsuser=conn.execute("select * from users where user='" & user & "'")
if not rsuser.eof then
%>
<script language="javascript">
alert("此用户名已存在，请另选一个用户名!"
<title>保存用户</title>
<head>
<%
dim sql,Vuser,Vpassword,Vpwdchk,Vcmpname,Vcmpaddress,Vphone,Vemail,Vpostalcode,Vnote
Vuser=request("user")
Vpassword=request("password")
Vpwdchk=request("pwdchk")
Vcmpname=request("cmpname")
Vcmpaddress=request("cmpaddress")
Vphone=request("phone")
Vemail=request("email")
Vpostalcode=request("postalcode")
Vnote=request("note")
set conn=server.CreateObject("adodb.connection")
cs="provider=microsoft.jet.oledb.4.0;data source="
conn.connectionstring=cs & server.MapPath("Conndb.mdb")
conn.open
set rsuser=conn.execute("select * from users where user='" & user & "'")
if not rsuser.eof then
%>
<script language="javascript">
alert("此用户名已存在，请另选一个用户名!"
sql="INSERT INTO users(user,password,pwdchk,cmpname,cmpaddress,phone,email,postalcode,note)VALUES('" & Vuser & "','" & Vpassword & "','" & Vpwdchk & "','" & Vcmpname & "','" & Vcmpaddress & "','" & Vphone & "','" & Vemail & "','" & Vpostalcode & "','" & Vnote & "') where (id is null)"
sql="INSERT INTO users(user,password,pwdchk,cmpname,cmpaddress,phone,email,postalcode,note)VALUES('" & Vuser & "','" & Vpassword & "','" & Vpwdchk & "','" & Vcmpname & "','" & Vcmpaddress & "','" & Vphone & "','" & Vemail & "','" & Vpostalcode & "','" & Vnote & "')"
conn.execute(sql)
看看是不是用了中文的标点！