<% dim conn,strSQL,rs dim name,psw,email,sex,birthday set conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset")

'If rs.State = 1 Then '如果结果集已经打开则关闭并赋为空 'rs.Close 'Set rs = Nothing 'End If 'If conn.State = 1 Then '如果连接已经打开则关闭并赋为空 ' conn.Close 'Set mycn = Nothing 'End If

conn.ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chat;Data Source=." conn.open conn.CursorLocation = adUseClient

name=request.form("t1") psw=request.form("t2") email=request.form("t4") sex=request.form.("r1")

if request.form("birthdayYear")="请选择" or request.form("birthdayMonth")="请选择" or request.form("birthdayDate")="请选择" then birthday="不详" else birthday="request.form('birthdayYear')"&"-"&"request.form('birthdayMonth')"&"-"&"request.form('birthdayDate')" end if

strSQL="insert into user values('"& name &"','"& psw &"','"& email &"','"& sex &"','"& birthday &"')"

'set rs = conn.execute (strSQL,,adCmdText) rs.open strSQL,conn,1,3 %>

这页一直都无法显示 这段代码是这页的一部分 下面有显示的东西 如果不要这段就是对的
加了这段就无法显示了

有没有错误的提示啊？能发上来看看吗/

就这一段来看，好像没有什么问题。有问题就很可能是最后两句。
'set rs = conn.execute (strSQL,,adCmdText)

rs.open strSQL,conn,1,3

我觉得用open不合适。

strSQL="insert into user values('"&amp; name &amp;"','"&amp; psw &amp;"','"&amp; email &amp;"','"&amp; sex &amp;"','"&amp; birthday &amp;"')"
这一句，字段可以省略，但后面的值顺序不要搞错了