运行没有问题，可新记录就是插入不进去！！！！
<!--#include file="Connections/luntandata.asp" -->
<%
Dim Rsuser
Dim Rsuser_numRows
Set Rsuser = Server.CreateObject("ADODB.Recordset")
Rsuser.ActiveConnection = MM_luntandata_STRING
Rsuser.Source = "SELECT * FROM Users"
Rsuser.CursorType = 0
Rsuser.CursorLocation = 2
Rsuser.LockType = 1
Rsuser.Open()
Rsuser_numRows = 0
%>
<%
dim username
dim password
dim sex
dim question
dim answer
dim email
dim logo
username=request.Form("txtusername")
password=request.Form("txtpassword")
sex=request.Form("sltsex")
question=request.Form("txtquestion")
answer=request.Form("txtanswer")
email=request.Form("txtemail")
logo=request.Form("sltlogo")
Rsuser.addnew
Rsuser("Username")=usernmae
Rsuser("Password")=password
Rsuser("Usersex")=sex
Rsuser("Question")=question
Rsuser("Answer")=answer
Rsuser("Email")=email
Rsuser("Logo")=logo
Rsuser("Regtime")=formatdatetime(now,0)
Rsuser.update
response.write("<a href=index.asp>注册成功</a>")
response.write("<script>alert(""注册成功!"");navigate(""index.asp"")</script>")
set Rsuser=nothing
set conn=nothing
%>
<%
Rsuser.Close()
Set Rsuser = Nothing
%>
