比亚迪f6改装:ASP代码问题

来源：百度文库编辑：杭州交通信息网时间：2024/04/28 20:02:40

<%
pageno=cint(request.querystring("pageno"))
if pageno=0 then pageno=1

sql="select ID,UserID,Title,FromURL,filepath,htmurl,a.Sort,b.SortName,Intro,PostTime,Reads,Rank,hot,isvip from zhai a,sort b where a.Sort=b.SortID and UserID='"&ZhaiUser&"' and ispub="&ispub&" order by hot desc,id desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1

if not rs.bof and not rs.eof then ' 当有数据的时候
rs.pagesize=30
rs.absolutepage=pageno
for i=1 to rs.pagesize
if rs.eof then exit for

Response.Write("<div class=item><div class=item-top></div>")
if isgd=1 then
linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
else
linkadd="goto.asp?id="&rs("id")
end if
if rs("hot")=1 then
hot="<font color='red'>[荐]</font>"
else
hot=""
end if

if rs("hot")=1 or rs("isvip")=1 then
titlecolor="red"
else
titlecolor="black"
end if
if trim(rs("intro"))<>"" then
Intro=cutStr(rs("Intro"),200)
else
intro="暂无说明"
end if
a=split(rs("PostTime"),"-")
Response.Write("<div class=item-title><h3><img src=e/skin/1/dian.gif class=arrow-up onClick=toggleItem(this) /> "&rs("PostTime")&" | <a href="&linkadd&" target='_blank' title='"&HTMLEncode(rs("Title"))&"'>"&HTMLEncode(rs("Title"))&"</a></h3><div class=clear></div></div><div class=item-body><div class=item-content> "&intro&"</DIV><div class=clear></div></div><div class=item-info><a href=# onClick="Element.toggle('folder0_f'); return false;">文章链接</a> | 已经有"&rs("reads")&"人看过此篇文章 </div><div id=folder0_f style=display:none; class=item-infoBox><span class=item-infoBoxTit><strong>提示：</strong>“文章链接”为您显示此篇文章的固定不变链接，您可以直接复制发给朋友</a></span><br />链接地址：<a target=_blank href="&linkadd&">"&linkadd&"</a> <a href="javascript:var url=window.clipboardData.setData('text','"&linkadd&"');alert('地址已保存到剪切板。');">复制此地址</a><br /></div></div><div class=item-bottom>")
rs.MoveNext
row=row+1
Response.Write("</div>")

next
Response.Write "<<div class="item"><div class="item-top"></div>>"
tj="tag="&tags&"&tj="&tj&"&pxzd="&pxzd
page "so.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount
Response.Write "</div>"
else
response.write "暂无数据"
end if

%>

这段代码，应该怎么写Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
-------------------------------------------------------------------------------------------------------------------------------------------------------^
代码错的
帮我看看，

onClick="Element.toggle('folder0_f'); return false;"
和
a href='javascript:var url=window.clipboardData.setData('text','"&linkadd&"');alert('地址已保存到剪切板。');'
两处的双引号改成单引号.

改后的Write字符串:
Response.Write("<div class=item-title><h3><img src=e/skin/1/dian.gif class=arrow-up onClick=toggleItem(this) /> "&rs("PostTime")&" | <a href="&linkadd&" target='_blank' title='"&HTMLEncode(rs("Title"))&"'>"&HTMLEncode(rs("Title"))&"</a></h3><div class=clear></div></div><div class=item-body><div class=item-content> "&intro&"</DIV><div class=clear></div></div><div class=item-info><a href=# onClick='Element.toggle('folder0_f'); return false;'>文章链接</a> | 已经有"&rs("reads")&"人看过此篇文章 </div><div id=folder0_f style=display:none; class=item-infoBox><span class=item-infoBoxTit><strong>提示：</strong>“文章链接”为您显示此篇文章的固定不变链接，您可以直接复制发给朋友</a></span><br />链接地址：<a target=_blank href="&linkadd&">"&linkadd&"</a> <a href='javascript:var url=window.clipboardData.setData('text','"&linkadd&"');alert('地址已保存到剪切板。');'>复制此地址</a><br /></div></div><div class=item-bottom>")

少End吧？

网页代码问题ASP代码 ASP简单代码问题 ASP代码问题 ASP代码问题请教Asp代码问题 ASP代码问题 ASP代码实现问题 asp代码的问题 ASP代码加密问题 asp代码执行问题