名称重定义.

[mengqingren2008]

<%
dim sql,conn,rs,htmlcode
%>
<!--#include file="includes/dbconn.inc"-->
<%
dim htmlcode
username = request.form("username")
password = request.form("password")
realname = request.form("realname")
phone = request.form("phone")
email = request.form("email")
add = request.form("add")
city = request.form("city")
state = request.form("state")
zip = request.form("zip")
call openDB()
sql="select username from customers where username='"&username&"'"
set rs=conn.execute(sql)
if not rs.eof then
htmlcode="the username you choosed has been used by others please choose an other username"
htmlcode=htmlcode&"<a href=""regist.asp""><<back</a>"
response.write htmlcode
else
sql="insert into customers(username,password,realname,phone,email,add,city,state,zip) values ('"
sql=sql&username&"','"&password&"','"&realname&"','"&phone&"','"&email&"','"&add&"','"&city&"','"&state&"',"&zip&")"
set rs=conn.execute(sql)
sql="select Max(idcustomer) as idcust from customers"
set rs=conn.execute(sql)
Session("idcustomer")=rs("idcust")
call closeDB()
response.redirect "orderverify.asp"
end if
call closeDB()
%>
下面是dbconn.inc文件
<%
Function openDB()
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
ConnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=caqasp;Data Source=caoxiaoqiang;PWD="
conn.Open ConnString
end function
Function closeDB()
set rs=nothing
conn.close
set conn=nothing
end function
%>