用ASP创建添加代码出错，急
答案:1 悬赏:10
解决时间 2021-01-14 23:17
- 提问者网友：几叶到寒
- 2021-01-14 15:30
用ASP创建添加代码出错，急
最佳答案
- 二级知识专家网友：鱼芗
- 2021-01-14 16:49
修改成
<%If Request.Cookies("enshi")("VIPManages")="enshi" Then%>
添加旅游信息
<%
dim action
action=trim(request.querystring("action"))
select case action
case "add"
dim id,title,nr,url,sj,rs
id=request.form("id")
title=server.htmlencode(request.form("title"))
nr=request.form("nr")
url=request.from("url")
sj=request.form("sj")
set rs=server.createobject("adodb.recordset")
rs.open "select * from lvyouxinxi where id="&id&"",conn,1,1
response.Write(rs("nr"))
end select
if title<>"" then
conn.execute("insert into lvyouxinxi (title,nr,url,sj) values ("&title&",'"&nr&"','"&url&"','"&sj&"') where id="&id&" ")
response.write ""
response.end
end if
%>
<%
Else
response.redirect "../login.asp"
end if%>
<%If Request.Cookies("enshi")("VIPManages")="enshi" Then%>
<%
dim action
action=trim(request.querystring("action"))
select case action
case "add"
dim id,title,nr,url,sj,rs
id=request.form("id")
title=server.htmlencode(request.form("title"))
nr=request.form("nr")
url=request.from("url")
sj=request.form("sj")
set rs=server.createobject("adodb.recordset")
rs.open "select * from lvyouxinxi where id="&id&"",conn,1,1
response.Write(rs("nr"))
end select
if title<>"" then
conn.execute("insert into lvyouxinxi (title,nr,url,sj) values ("&title&",'"&nr&"','"&url&"','"&sj&"') where id="&id&" ")
response.write ""
response.end
end if
%>
<%
Else
response.redirect "../login.asp"
end if%>
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息