插入数据库问题!急....
replay.asp
<TR bgColor=#ffffff>
<TD align=middle colSpan=3>
<DIV align=center><FONT color=#ff0000><B><FONT color=#004284>用户注册信息表</FONT></B></FONT></DIV></TD></TR>
<FORM name=mainform onSubmit="return Validator.Validate(this,3)" action="reg1_2.asp" method=post>
<TR align=middle>
<TD align=middle width="13%" bgColor="#f4f4f4" rowSpan="4">
<P align=center><BR>单</P>
<P align=center>位</P>
<P align=center>信</P>
<P align=center>息</P>
<P align=center> </P></TD>
<TD bgColor=white>
<DIV align=left>单位中文名称</DIV></TD>
<TD align=left bgColor=white><input name="companyName" dataType="Chinese" require="true" msg="单位中文名称只允许中文"> *单位中文名称只允许中文</TD>
</TR>
<TR align=middle>
<TD bgColor=#f4f4f4 height=30>
<DIV align=left>单位英文名称</DIV></TD>
<TD align=left bgColor=#f4f4f4 height=30><input name="companyEName" datatype="English" require="false" msg="单位英文名称只允许英文字母"></TD>
</TR>
<TR align=middle>
<TD bgColor=white>
<DIV align=left>单位地址</DIV></TD>
<TD align=left bgColor=white><INPUT maxLength=40 size=40 name=companyAddress require="true" dataType="LimitB" min="8" max="255" msg="请输入单位地址"> *请输入单位地址</TD>
</TR>
<TR align=middle>
<TD width="16%" bgColor=#f4f4f4>
<DIV align=left>单位邮编</DIV></TD>
<TD align=left bgColor=#f4f4f4><input maxlength="6" size="10" name="zipcode" require="true" > </TD>
</TR>
<TR>
<TD align=center bgColor=#ffffff colSpan=4> <INPUT type=submit value="确 认" name=Submit> <INPUT onclick=javascript:history.back(-1) type=reset value="取 消" name=Submit2> </TD></TR>
replay_1.asp
<%
dim Name,EName,Address,zipcode,sqlCompany
Name=Request.Form("companyName")
EName=Request.Form("companyEName")
Address=Request.Form("companyAddress")
zipcode=Request.Form("zipcode")
sqlCompany="INSERT INTO Stamps(ID,originalUrl,currentUrl,FileName,uid) VALUES ('"&Name& "','"&EName&"','" & Address & "','" &zipcode& "')"
if SysInsertDataBase(sqlCompany) = 0 then '写入公司信息失败
response.Redirect("error.asp?msg=写入公司信息失败")
end if
Function SysInsertDataBase(byval sSql)
set Conn=server.CreateObject("ADODB.Connection")
Conn.Open Application("Cnn_ConnectionString")
Conn.Execute sSql,RecordsAffected,adCmdText
if conn.Errors.Count >0 then
SysInsertDataBase=0
else
SysInsertDataBase=1
end if
set conn=nothing
End Function
这里提示写入公司信息失败,可是我用另一条插入语句就可以成功了.
例:sqlStamp="INSERT INTO Stamps(CID,originalUrl,currentUrl,FileName,uid) VALUES ("& request.Cookies(CookieName)("CID") & ",'"&originalPath&"','" & currentPath & "','" &originalFname& "',"&uid&")"
SysInsertDataBase(sqlStamp)'这条是成功的.
是不是我上面的SQL语句写错了????
%>