怎样在ASP里画横线？

标签<hr>就是一道直线

<table>

<tr>

<td>第一行

</td>

</tr>

<tr>

<td>

<hr><%--这里就是直线--%>

</td>

</tr>

</table>

你说的是删除线吧。

如果你需要删除线（有一道横线穿过的文本），应该使用<STRIKE>或<S>标识符

如<s>价格</s> 价格可以直接调用数据库 例子<s><%=rs("price")%></s>。

希望对你有帮助，建议您温习看一下html的知识。不管什么开发语言，html都是相同的。

==================

在HTML中<B>标识符使文字以黑体显示，要让文字以斜体显示，应把文字置于<I>之间。你也可通过<U>来给文字加下划线。最后如果你需要删除线（有一道横线穿过的文本），应该使用<STRIKE>或<S>标识符。下面是一些例子

支持rows,cols,以及翻页显示的！中间是数据显示部分！

把那块代码换成你要的就OK了，你想怎么显示就怎么显示！

showNews "select * from news",3(行),3(列),1(页),1(显示书签),20(所有项中数据显示长度为20个字符)

使用我的代码再来跟我要 autoCut()函数吧！

<%

sub showNews(sql,rows,cols,ipage,isShowBookMark,autoLen)

dim rs,page_size,icol,path

if cols="" or not isNumeric(cols) then cols = 1

if cols<=0 then cols = 1

if rows="" or not isNumeric(rows) then rows = 1

if rows<=0 then rows=1

if ipage="" or not isNumeric(ipage) then ipage=1

if ipage<=0 then ipage=1

if autoLen="" or not isNumeric(autoLen) then autoLen = 20

if autoLen<=0 then autoLen = 20

page_size = cols * rows

set rs = server.CreateObject("ADODB.recordset")

rs.open sql,conn,1,1

response.write "<table width=100% border=0 cellpadding=0 cellspacing=0 id=news>" &VBCRLF

if rs.eof or rs.bof then

response.write "<tr><td width=100% height=50 align=center valign=middle style='color:red'>暂时没有信息!</tr>" &VBCRLF

response.write "</table>" &VBCRLF

exit sub

end if

rs.pageSize = page_size

if int(ipage) >int(rs.pageCount) then ipage = rs.pageCount

rs.absolutePage = ipage

icol = 0

while not rs.eof and int(icol)<int(page_size)

if icol mod cols = 0 then

response.write "<tr>" &VBCRLF

end if

response.write "<td width=" &int(100/cols) &"% height=20 align=left valign=middle>" &VBCRLF

%>

<!数据显示开始>  ·<a href="readData.asp?id=<%=rs("id")%>&DataType=10001" target="_self"><%=autoCut(rs("title"),autoLen)%></a> <span id="time">[<%=DateValue(rs("post_time"))%>](已阅<%=rs("click_count")%>次)</span>

<!结束>

<%

response.write "</td>" &VBCRLF

icol = icol + 1

if icol mod cols = 0 then

response.write "</tr>" &VBCRLF

end if

rs.movenext

wend

if icol mod cols <>0 then

response.write "<td colspan=" &int(cols - icol mod cols) &"> </td></tr>" &VBCRLF

end if

response.write "</table>"

if isShowBookMark=1 then

dim reg

set reg = new RegExp

reg.pattern = "[&]*page=[0-9]*"

reg.Global = true

reg.Ignorecase = true

path = reg.replace(request.QueryString,"")

if path="" then

path = "?" &path

else

path = "?" &path &"&"

end if

set reg = nothing

response.Write "<br><div style='font-size:12pxcolor:black'>" &VBCRLF

response.write "<br>总记录数<span style='color:red'>"&rs.recordCount&"</span>  每页<span style='color:red'>" &page_size &"</span>  "

if ipage <= 1 then

response.write "<span style='color:darkgray'>首页 前页</span>"

else

response.write "<a href=" &path &"page=1>首页</a><a href=" &path &"page="&ipage-1&">前页</a>"

end if

if int(ipage) = int(rs.pageCount) then

response.write "<span style='color:darkgray'>下页 末页</span>"

else

response.write " <a href=" &path &"page="&ipage+1&">下页</a><a href=" &path &"page="&rs.pageCount&">末页</a>"

end if

response.write "    第"&ipage&"页 共"&rs.pageCount&"页"

response.write "</div>"

end if

end sub

%>

---