一个在ASP中较复杂的SQL语句

zhecaishiwo 2005-07-02 11:01:18

这是一个聊天室的网页，我在网页中浏览后发现以下部分，报错，请大家帮我看看好吗？
----------------------------------------------------------------------------
'报错代码'
____________________________________________________________________________
connstr="select c_talk_no,c_talk_time,c_member_name_from=case c_member_name_from when '"&session("useridnick")&"' then '<font color=#ff000f>你</font>' else c_member_name_from end,"
connstr=connstr&" c_member_name_to=case c_member_name_to when '"&session("useridnick")&"' then '<font color=#ff000f>你</font>' else c_member_name_to end,c_talk_smallsound,c_talk_content,c_face_no"
connstr=connstr&" from t_talk where c_talk_no in (select top 100 c_talk_no from t_talk where (c_member_name_from='"
connstr=connstr & session("useridnick") & "'or c_member_name_to='"&session("useridnick")&"' or c_member_name_to='全部' or c_talk_smallsound<>'悄悄地' or c_member_name_to is null)"
connstr=connstr & " and c_talk_no > "&"(select top 1 c_talk_no-1 from t_talk where c_member_name_from='sys' and c_member_name_to='" & session("useridnick") & "'order by c_talk_time desc)"
connstr=connstr& " order by c_talk_time desc) order by c_talk_time asc"
---------------------------------------------------------------------------

'（以下是本页全部代码）
____________________

<HTML><HEAD>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<meta http-equiv="refresh" content="2;url=view_center_front.asp">
<TITLE>对话区</TITLE>
<SCRIPT language=javascript>
var currentpos,timer;
function initialize()
{timer=setInterval("scrollwindow()",1);}
function sc(){clearInterval(timer); }
function scrollwindow()
{currentpos=document.body.scrollTop; window.scroll(0,1000+currentpos);
if (currentpos != document.body.scrollTop) sc();}
document.onmousedown=sc
</SCRIPT>
</HEAD>
<body bgcolor=<%=session("bgcolor")%> leftMargin=2 topMargin=0 <%if session("scrollName")="1" then response.write "onLoad='initialize();'"%>>
<form name=Form1 action="view_center_front.asp">
<%set conn=server.CreateObject("ADODB.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("chatroom_Data.mdb")
connstr="select c_talk_no,c_talk_time,c_member_name_from=case c_member_name_from when '"&session("useridnick")&"' then '<font color=#ff000f>你</font>' else c_member_name_from end,"
connstr=connstr&" c_member_name_to=case c_member_name_to when '"&session("useridnick")&"' then '<font color=#ff000f>你</font>' else c_member_name_to end,c_talk_smallsound,c_talk_content,c_face_no"
connstr=connstr&" from t_talk where c_talk_no in (select top 100 c_talk_no from t_talk where (c_member_name_from='"
connstr=connstr & session("useridnick") & "'or c_member_name_to='"&session("useridnick")&"' or c_member_name_to='全部' or c_talk_smallsound<>'悄悄地' or c_member_name_to is null)"
connstr=connstr & " and c_talk_no > "&"(select top 1 c_talk_no-1 from t_talk where c_member_name_from='sys' and c_member_name_to='" & session("useridnick") & "'order by c_talk_time desc)"
connstr=connstr& " order by c_talk_time desc) order by c_talk_time asc"
set rs=conn.execute(connstr)
do while not rs.eof
for i=1 to rs.fields.count-2
if rs.fields(2).value="sys" then
response.write "<font color=red>"
response.write rs.fields(5).value
response.write "</font>"
i=5
else
if i=1 then response.write "["
if i<>1 then
response.write rs.fields(i).value
else
response.write right(cstr(rs.fields(i).value),8)
end if
if i=2 then response.write "对"
if i=4 then response.write "说:"
if i=1 then response.write "]"
end if
next
response.write "<br>"
rs.movenext
loop
rs.close
conn.close
%>
</form>
</body>
</html>

...全文

68 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

hj3793 2005-07-02

打赏
举报

connstr=connstr & session("useridnick") & "'or c_member_name_to='"&session
->
connstr=connstr & session("useridnick") & "' or c_member_name_to='"&session

itzhiren 2005-07-02