<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../date/ws.mdb")

s_nameg=request.form("nameg")
s_name=request.form("name")
s_add=request.form("add")
s_tel=request.form("tel")
s_tel1=request.form("tel1")
s_tel2=request.form("tel2")
%>
<%
on error resume next
if trim(s_name)="" or trim(s_add)="" or trim(s_tel)="" then
response.write ("<script>alert('姓名，电话，地址必需要填写！');window.location.href='list.asp'</script>")
response.end

else
sqlr="insert into dzmp(s_nameg,s_name,s_add,s_tel,s_tel1,s_tel2)values('"&username&"','"&userren&"','"&useradd&"','"&usertel&"','"&usertell&"','"&userwork&"')"

conn.execute(sqlr)

if conn.errors.count>0 then
response.write("<script>alert('添加失败,返回重新添加！');window.location.href='insert_form.asp';</script>")
response.end
else

response.write("<script>alert('提交成功！');window.location.href='list.asp';</script>")
response.end
end if

%>


不知到哪错了 提示 ：您要访问的网页有问题，无法显示。

我找不出哪有错来了 难道是机子的问题？

HTTP 500 - 内部服务器错误
Internet Explorer

[此贴子已经被作者于2005-11-13 15:52:15编辑过]

郁闷~~~~~~~~~ 刚刚还能添加的 在表单中再加一个元素 又出现了内部错误 重起了也用

<!--#include file="conn.asp"-->

<%
s_name=request.form("name")
s_add=request.form("add")
s_tel=request.form("tel")
s_ren=request.form("ren")
s_mail=request.form("mail")
s_message=request.form("message")
s_title=request.form("title")
s_message=replace(s_message," ","&nbsp;&nbsp;")
s_message=replace(s_message,chr(13)&chr(10),"<br>")
'on error resume next
if trim(s_ren)="" or trim(s_tel)="" or trim(s_message)="" or trim(s_title)="" then

response.write ("<script>alert('反馈标题，联系人，电话，反馈意见必需要填写！');window.location.href='answer.asp'</script>")
response.end

else
sqlr="insert into message(usertitle,userren,usertel,usermessage"
sqll="values('"&s_title&"','"&s_ren&"','"&s_tel&"','"&s_message&"'"
if s_name<>"" then
sqlr=sqlr & ",username"
sqll=sqll & ",'"&s_name&"'"
end if
if s_add<>"" then
sqlr=sqlr & ",useradd"
sqll=sqll & ",'"&s_add&"'"
end if
if s_mail<>"" then
sqlr=sqlr & ",usermail"
sqll=sqll & ",'"&s_mail&"'"
end if
end if
sql=sqlr & ")" & sqll & ")"
conn.execute(sql)
if conn.errors.count>0 then
response.write "添加失败,请输入正确的信息。"
response.write "<a href='answer.asp'>返回重新添加</a>"
else

response.write("<script>alert('提交成功,谢谢你提出的见意！');window.location.href='answer.asp';</script>")
response.end

end if

%>


哥。帮我找找是我写错了，还是机子有问题。

那就不知道了～你看看这个能帮到你不
http://www.chinageren.com/Article/program/asp/200503/14162_2.html

郁闷 重起一次还没用 火了我 一口气 按了三次电源开关 能添加了