查看: 93|回复: 3

[求助]大家帮忙看看好么?

[复制链接]

v九天〓云龙

电梯直达

1^#

发表于 2010-1-18 08:32:40 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
dim conn,db,rs,sql,sgren,sgtime,sgphone,sgzhuti,sgzhuangtai,zaphone,zatime,fenleid,fenleix
dim sgneirong
db="/mdb/login.mdb"
sgren=Session("username")
sgtime=request.form("sgtime")
sgphone=Session("uphone")
sgzhuti=request.form("textzhuti")
sgneirong=request.form("textneirong")
sgneirong=replace(sgneirong,chr(13)," ")'替换回车
sgneirong=replace(sgneirong," ","  ")'替换空格
sgzhuangtai=request.form("sgzhuangtai")
zaphone=request.form("zaphone")
zatime=request.form("zatime")
fenleid=request.form("feileid")
fenleix=request.form("feileix")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
sql="select * from shengao1 where zhuti='"&sgzhuti&"'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,2
if not rs.eof then
%>
<style type="text/css">

</style>
对不起，您所发布申告的主题重复，请检查是否重复或者修改主题！
<%
else
rs.addnew
rs("name")=sgren
rs("phone")=sgphone
rs("zhuti")=sgzhuti
rs("miaoshu")=sgneirong
rs("date_time")=sgtime
rs("xulie")=sgzhuangtai
rs("gonghao")=Session("user")
rs("zaphone")=zaphone
rs("zatime")=zatime
rs("fenleid")=fenleid
rs("fenleix")=fenleix
rs.update
%>
<%
end if
rs.close
conn.close
set conn=nothing
%>



障碍：<%=sgzhuti%>添加成功，请<a href="../../../loginok.asp">返回主页</a>!

他总是提示我字段shengao1.miaoshu不能是零长度的字符串
是不是我那里写的有问题啊??
昨天还可以用呢

收藏0