帮忙找错 asp
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。
/xujun/datebase/newssave.asp, 第 68 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
网页:
POST 9480 ??? /xujun/datebase/newssave.asp
POST Data:
name=admin&pw=admin&tital=%D1%EE%D2%BB%C3%F1%B3%C9%B9%A6%CE%D3%D0%FD%A1%B0%C8%FD%B2%BF%C7%FA%A1%B1+%D6%D0%B9%FA%D5%E2%D1%F9%B3%C9%CE%AA%D6%D6%D7%D3%B6%D3&zt=%CC%E5%CC%B3%D6%DC%B1%A8&neirong=%BC%C7%D5% . . .
时间:
2003年7月15日, 15:00:00
详细信息:
Microsoft 支持
<!--#INCLUDE file="conn.asp" -->
<%
dim name,pw
name=Trim(Request.form("name"))
pw=Trim(Request.form("pw"))
if name="" then
%>
<script language=javascript>
alert( "错误:请输入用户名!" );
location.href = "javascript:history.back()"
</script>
<%end if
if pw="" then%>
<script language=javascript>
alert( "错误:请输入管理密码!" );
location.href = "javascript:history.back()"
</script>
<%end if%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From admin where name='" &name&"'", conn, 3,3
%>
<%if rs.bof then %>
<script language=javascript>
alert( "错误:此用户名不存在!" );
location.href = "javascript:history.back()"
</script>
<%elseif pw<>rs("pw") then%>
<script language=javascript>
alert("错误:您的密码不正确!");
location.href = "javascript:history.back()"
</script>
<%else%>
<%
dim tital,zt,neirong
tital=Trim(Request.form("tital"))
zt=Trim(Request.form("zt"))
neirong=Trim(Request.form("neirong"))
if trim(tital="") then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入标题!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
if trim(neirong)="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入内容!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
if zt="" then zt="不详"
neirong=replace(neirong,"<","<")
neirong=replace(neirong,">",">")
neirong=replace(neirong,"'","<|>")
neirong=replace(neirong,vbCrLf,"<br>")
neirong=replace(neirong," "," ")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "news",conn,1,2
rs.addnew
rs("tital")=tital
rs("neirong")=neirong // 68 行
rs("zt")=zt
rs("time")=now
rs.update
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('添加成功!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.redirect "newsadd.asp"
%>
<%end if%>