操作符继续丢失
该了好多地方,还是操作符丢失!!
response.write adress输出有值!!
下面是代码:
<!--#include file="conn.asp"-->
<%
if request.cookies("log")("uname")="" then
response.Write("<script language='javascript'>")
response.Write("window.alert('请登录先');")
response.Write("history.back();")
response.Write("</script>")
else
zhang=request.cookies("log")("uname")
end if
adresss=request.querystring("adress")
if adresss="1" then adress1="回族历史"
if adresss="2" then adress1="回族风俗"
if adresss="3" then adress1="回族餐饮"
if adresss="4" then adress1="图片区"
if adresss="5" then adress1="兄弟民族"
if adresss="6" then adress1="论坛公告"
if adresss="7" then adress1="站务管理"
'response.Write adresss
'response.end
if request.form("button2")<>"" then
topic=request.querystring("topic")
bb=request.Form("nr")
tname=year(date)&month(date)&day(date)&int(rnd*10)&int(rnd*10)&int(rnd*10)&adresss
set rs=server.CreateObject("adodb.recordset")
sqlstr="select jr from user2 where adress="&adresss
'response.Write "select jr from user2 where adress="&adresss
'response.end
rs.open sqlstr,conn,1,1
jrr=split(rs("jr"),",")
if jrr(0)+0=weekday(now) then
jjj=jrr(1)+1
jr=jrr(0)&","&jjj
else
jr=weekday(now)&","&"1"
end if
rs.close
conn.begintrans
conn.execute "update user1 set integral=integral+5 where uname='"&zhang&"'"
conn.execute "update user2 set ss=ss+1,lastdate=now(),uname='"&zhang&"',topic='"&topic&"',tname='"&tname&"',jr='"&jr&"' where adress="&adresss
conn.execute "insert into count_"&adresss&"(topic,replyss,lasttime,uname,uname_1,tname)values('"&topic&"',0,now(),'"&zhang&"','"&zhang&"','a_"&tname&"')"
conn.execute "create table a_"&tname&"(id varchar(5),uname varchar(15),bb text)"
conn.execute "insert into a_"&tname&"(id,uname,bb)values('楼主','"&zhang&"','"&bb&"')"
if not err then
response.Redirect "topic1.asp"
response.end
end if
end if
%>
各位帮看一下
