ASP高手请进，小弟请教？万分感谢！ - 编程论坛

#2

yms1232010-12-13 14:54

就是多次提交一样的内容的限制？

#3

haojibao2010-12-13 15:05

对的。请指教？

#4

yms1232010-12-13 15:13

username=session("username")
userid=session("userid")
id=request("id")
renwuid=request("renwuid")

set rs=server.CreateObject("adodb.recordset")
sql="select * from jierenwu where id="&renwuid&" and userid="&userid&""
rs.open sql,conn,1,3
IF rs("tiecontent")==request("tiecontent") Then
   Response.Write "不能提交一样的内容"
Else
  rs("tieurl")=request("tieurl")
  rs("tiezhanghao")=request("tiezhanghao")
  rs("tielouceng")=request("tielouceng")
  rs("tiedate")=request("tiedate")
  rs("tiecontent")=request("tiecontent")
  rs("zhengju")=HTMLEncode2(ToLink(request.form("zhengju")))
  rs("flag")=2
  rs.update
End IF
rs.close
set rs=nothing

response.Write "<script language=javascript>alert('汇报成功！');window.location.href='mission.asp'</script>"
response.End

#5

haojibao2010-12-13 15:32

按以上内容编辑不行，报错。

无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 127.0.0.1 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/huibaosave.asp, line 53, column 20
IF rs("tiecontent")==request("tiecontent") Then
-------------------^

浏览器类型：
Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; InfoPath.2; .NET CLR 2.0.50727)

网页：
POST 125 ??? /huibaosave.asp

POST Data:
id=22&renwuid=63&Projectname=%B8%F1%C2%B3%CD%F8%B7%A2%CC%FB&Projectid=7&leibie=0&zhengju=0000&submit=%C8%B7%C8%CF%BB%E3%B1%A8

时间：
2010年12月13日, 15:32:36

详细信息：
Microsoft 支持

#6

yms1232010-12-13 16:00

username=session("username")
userid=session("userid")
id=request("id")
renwuid=request("renwuid")

set rs=server.CreateObject("adodb.recordset")
sql="select * from jierenwu where id="&renwuid&" and userid="&userid&""
rs.open sql,conn,1,3
IF rs("tiecontent")=request("tiecontent") Then
   Response.Write "不能提交一样的内容"
Else
  rs("tieurl")=request("tieurl")
  rs("tiezhanghao")=request("tiezhanghao")
  rs("tielouceng")=request("tielouceng")
  rs("tiedate")=request("tiedate")
  rs("tiecontent")=request("tiecontent")
  rs("zhengju")=HTMLEncode2(ToLink(request.form("zhengju")))
  rs("flag")=2
  rs.update
End IF
rs.close
set rs=nothing

response.Write "<script language=javascript>alert('汇报成功！');window.location.href='mission.asp'</script>"
response.End

#7

a1900662010-12-13 17:28

以下代码供你参考：
if userid="" then
   response.write "<script>alert('用户名字段空白，不接受！');history.back();</Script>"
   response.end
end if
if password="" then
   response.write "<script>alert('密码字段空白，不接受！');history.back();</Script>"
   response.end
end if
if password<>password2 then
   response.write "<script>alert('两次密码输入不相同，不接受！');history.back();</Script>"
   response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select userid from users2 where userid='"&userid&"'"
rs.open sql,conn,2,2
if not rs.eof then
   response.write "<script>alert('这一“用户名称”已被占用，请得新输入！');history.back();</Script>"
   response.end
end if

#8

hams2010-12-14 08:34

username=session("username")
userid=session("userid")
id=request("id")
renwuid=request("renwuid")
if Session("for2")=id then
response.Write "<script language=javascript>alert('请不要重复提交！');window.location.href='mission.asp'</script>"

else
set rs=server.CreateObject("adodb.recordset")
sql="select * from jierenwu where id="&renwuid&" and userid="&userid&""
rs.open sql,conn,1,3
rs("tieurl")=request("tieurl")
rs("tiezhanghao")=request("tiezhanghao")
rs("tielouceng")=request("tielouceng")
rs("tiedate")=request("tiedate")
rs("tiecontent")=request("tiecontent")
rs("zhengju")=HTMLEncode2(ToLink(request.form("zhengju")))
rs("flag")=2

rs.update
rs.close
set rs=nothing
Session("for2")=id
response.Write "<script language=javascript>alert('汇报成功！');window.location.href='mission.asp'</script>"
end if
response.End