连接字符串报错!在线等待!
sql="select * from receivemsg_table where_
charindex('#',receivemsg)>0 and left(receivemsg,charindex('#',receivemsg)-1) in ('9')"
错误类型：
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/xin/ReceiveMsg.asp, line 6, column 42
sql="select * from receivemsg_table where_
-----------------------------------------^
问题点数：60、回复次数：7Top
1 楼sasasa888（nono）回复于 2006-06-04 16:29:57 得分 0
自己搞定Top
2 楼sasasa888（nono）回复于 2006-06-04 16:43:38 得分 0
acount=request.QueryString("acount")
response.Write acount
set rs1=server.CreateObject("adodb.recordset")
sql="select * from receivemsg_table where charindex('#',receivemsg)>0 and left (receivemsg,charindex('#',receivemsg)-1)='account'"
怎么没查出记录呀Top
3 楼zhenmeiyisi（。。。）回复于 2006-06-04 17:27:08 得分 0
sql="select * from receivemsg_table where charindex('#',receivemsg)>0 and left (receivemsg,charindex('#',receivemsg)-1)='"&account&"'"
Top
4 楼sasasa888（nono）回复于 2006-06-04 21:27:06 得分 0
<%
acount=request.QueryString("acout")
response.Write acount
set rs1=server.CreateObject("adodb.recordset")
sql="select * from receivemsg_table where charindex('#',receivemsg)>0 and left(receivemsg,charindex('#',receivemsg)-1)='"&acount&"'"
rs1.open sql,conn,1,1
%>
我这样写为什么出现分页错误呀Top
5 楼sasasa888（nono）回复于 2006-06-04 23:03:36 得分 0
<!--#include file="inc/conn.asp"-->
<%
acount=request.QueryString("acout")
response.Write acount
set rs1=server.CreateObject("adodb.recordset")
sql="select * from receivemsg_table where charindex('#',receivemsg)>0 and left(receivemsg,charindex('#',receivemsg)-1)='"&acount&"'"
rs1.open sql,conn,1,1
%>
<% Select case Request.QueryString("op")
Case "del"
Call del()
Case else
Call disp()
End Select
%>
<%sub disp()%>
<%
dim i,intPage,page,pre,last,filepath
rs1.PageSize =5 '这里设定每页显示的记录数
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >=rs1.PageCount then
intpage = rs1.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs1.eof then
rs1.AbsolutePage = intpage
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>短信接收</title>
<link href="images/style.css" rev="stylesheet" rel="stylesheet" type="text/css" />
</head>
<body><br />
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30"class="text3">短信</td>
</tr>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" class="wenzi1">
<tr>
<td>发件人</td>
<td>时间</td>
<td colspan="2">管理</td>
</tr><% for i=1 to rs1.pagesize
if rs1.eof or rs1.bof then exit for %>
<tr>
<td><%=rs1("sendnum")%></td>
<td><a href="showReceive.asp?retime=<%=rs1("receivetime")%>"><%=rs1("receivetime")%></a></td>
<td><a href="?op=del&id=<%=rs1("receivetime")%>" onclick="return confirm('确定删除吗')">删除</a></td>
</tr>
<%
rs1.movenext
next
%> <% if rs1.pagecount > 0 then %>
<td>总信息：<%=rs1.recordcount%>当前页<%=intpage%>/<%=rs1.pagecount%><%else%>当前为0</td>
<%end if%>
<td colspan="3"><a href="?page=1">首页</a>:
<%if pre then%>:<a href="?page=<%=intpage -1%>">上页</a>:
<%end if%>:<a href="?page=<%=intpage +1%>">下页</a>:
:<a href="?page=<%=rs1.PageCount%>">尾页</a>: 转到第
<select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;" ID="Select1">
<%for i = 1 to rs1.PageCount
if i = intpage then%>
<option value="?page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="?page=<%=i%>"><%=i%></option>
<%end if
next%>
</select>
页</font> </td>
<td><a href="#" onClick="history.back()"><input type="submit" value="返回"></a></td>
</tr>
<%end sub%>
<%sub del()
del_msg="delete from ReceiveMsg_Table where receivetime='"&request("id")&"'"
conn.execute del_msg
response.redirect "receivemsg.asp"
set del_msg=nothing
end sub%>
<%
rs1.close
set rs1=nothing
conn.close
set conn=nothing
%>
</table>
</body>
</html>
源码如上:分页出现了错误,记录只能在第一页显示.到下一页和页尾就显示不出来了.Top
6 楼cnrk_net（疯子）回复于 2006-06-04 23:17:21 得分 0
头晕..
顶一下Top
7 楼yongfa365（http://www.yongfa365.com）回复于 2006-06-05 01:51:17 得分 0
SQL里也有Left()?Top
