往SQLSERVER2000写数据问题

g9ma01 2010-01-06 03:52:26

conn.asp
<%
dim conn,connstr,rs
Set conn=Server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=110.80.192.7;uid=admin;pwd=admin123;Protocol=TCP/IP;database=db_qjf"
conn.Open connstr
if err then
err.clear
set conn=Nothing
response.write "数据库连接出错。"
response.end
end if
%>
main.asp
<form name="3gqjf" method="post" action="insqjf.asp">
<center>
<table width="50%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td align="left" height="40">请填写用户信息</td>
</tr>
<tr>
<td align="left" height="40"><font color=red>*</font>第一号码:
<input type="text" name="hm3g" size=11 align="middle" onblur="if(/[^0-9]/g.test(this.value))alert('号码输入有错')">
</td>
</tr>
<tr>
<td align="left" height="40"><font color=red>*</font第二号码:
<input type="text" name="hm2ga" size=11 align="middle" onblur="if(/[^0-9]/g.test(this.value))alert('号码输入有错')">
</td>
</tr>
<tr>
<td align="left" height="40"><font color=red>*</font>第三号码:
<input type="text" name="hm2gb" size=11 align="middle" onblur="if(/[^0-9]/g.test(this.value))alert('号码输入有错')">
</td>
</tr></table>
<table width="50%" cellpadding="0" cellspacing="0" border="0">
<tr><td align="left">
<input type=submit name="sent" value="确认并提交"></td></form><td>
<input type=reset name="clear" value="重新输入"></td></tr></table>
insqjf.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
if session("yhm")<>"" then
call wri
end if
function wri
if len(request("hm3g"))=11 and len(request("hm2ga"))=11 and len(request("hm2gb"))=11 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from qjf3g"
rs.open sql,conn,1,3
rs.AddNew
rs("hm3g")=request("hm3g")
rs("hm2ga")=request("hm2ga")
rs("hm2gb")=request("hm2gb")
rs("yhm")=session("yhm")
rs("sj")=now()
rs.update
rs.close
response.Redirect("chenggong.htm")
else
response.Write("<script language=javascript>alert('请把号码填写完整')</script>")
end if
end function
%>

现在问题是，点了“确认并提交”按钮后进入insqjf.asp的页面为空白，不返回成功或失败信息

...全文