|
主题: 我想请教几个关于asp的问题
|
jdzhn2000
职务:普通成员
等级:1
金币:0.0
发贴:38
|
#12002/12/2 10:48:52
各位高手,小弟最近在学asp,遇到几个问题,想请教一下! 1。如何显示数据库的总共记录? 2。如果显示分页后的总页码? 3。怎么让留言板的留言实现换行? 希望各位高手多帮忙,最好能给出源代码,谢谢~~
|
5D荣誉版主
职务:普通成员
等级:1
金币:10.0
发贴:271
|
#22002/12/2 11:33:36
这种问题很多了,建议在发贴前先搜索下
|
jdzhn2000
职务:普通成员
等级:1
金币:0.0
发贴:38
|
#32002/12/3 8:51:26
大哥就多照顾点新手吧,我上网时间不多,希望能得到你们的帮助,谢谢了.
|
天之剑
职务:普通成员
等级:1
金币:0.0
发贴:302
|
#42002/12/3 9:09:48
这也不好回答呀,如果要帖的话,都帖一本书放上
|
jdzhn2000
职务:普通成员
等级:1
金币:0.0
发贴:38
|
#52002/12/5 15:29:35
不至于这么夸张吧,大概说一下吧。
|
FlowJZH
职务:普通成员
等级:1
金币:0.0
发贴:22
|
#62002/12/7 0:57:10
1.执行以下SQL语句 selece count(*) from 表名 2.用这段代码,小生自己写的:)
dim intTotalPage,intCurrentPage
Sub DividePage(objRS,intPageSize,intPageNo)
intTotalPage=int(objRS.recordcount/intPageSize*-1)*-1
intPageNo=CInt(intPageNo)
if intPageNo<1 then
intPageNo=1
elseif intPageNo>intTotalPage then
intPageNo=intTotalPage
end if
objRS.PageSize=intPageSize
objRS.AbsolutePage=intPageNo
intCurrentPage=intPageNo
end sub
set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.open 查询,数据库连接字符串,adOpenStatic,adLockReadOnly
DividePage objRS,10,strPage '10是每页的记录数,strPage是当前要显示的页码
这样,就实现了分页而且intTotalPage就是你想要的。Sub中的代码可以写在include重用。 3.这个问题似乎不是ASP的问题或者说用ASP处理不划算,其实只要把TD的宽度固定以后,再把样式定为"word-break:break-all"就好了。比如: <%=objRS("text")%> |
编辑历史:[这消息被FlowJZH编辑过(编辑时间2002-12-07 00:58:19)]
|
奔腾的心
职务:普通成员
等级:7
金币:10.0
发贴:6114
|
#72002/12/7 16:26:37
style="word-break:break-all" 想问这起什么作用??
对于换行我也有疑问,就是如果一直不打回车只管输入
那么输出的内容也就是很常长一条,不知道是否可以自动换行?
下面我在这里给你示范一下,
注意下面的。
|
奔腾的心
职务:普通成员
等级:7
金币:10.0
发贴:6114
|
#82002/12/7 16:27:00
dfddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
|
FlowJZH
职务:普通成员
等级:1
金币:0.0
发贴:22
|
#92002/12/7 22:05:55
没错,这个style="word-break:break-all" 就是为了解决这个问题的。你可以试试,它会把这段话自动换行的 另外还有一个解决办法,小生刚刚发现的。
应用TABLE-LAYOUT: fixed这个样式后,ie会把col作为第一顺序来读取列宽,这样列宽永远是固定的,把行高也设定以后整个单元格就定下来了,超出单元格的部分会被隐藏,这样就永远也不要担心因为用户的输入而把单元格撑大了。这个技巧在做bbs的预缆的时候甚至不需要根据中英文的宽度来截取字符串,十分方便很高效。
|
jdzhn2000
职务:普通成员
等级:1
金币:0.0
发贴:38
|
#102002/12/8 12:41:44
多谢各位大哥给小弟的帮助。谢谢
|
jdzhn2000
职务:普通成员
等级:1
金币:0.0
发贴:38
|
#112002/12/10 9:09:01
我又有新的问题了,我在
|
ryonick
职务:普通成员
等级:2
金币:1.0
发贴:317
|
#122002/12/10 9:34:08
用replace函数过滤输出
|
jdzhn2000
职务:普通成员
等级:1
金币:0.0
发贴:38
|
#132002/12/11 14:37:54
能具体点吗,小弟是初学者。拜托了~~~
|
FlowJZH
职务:普通成员
等级:1
金币:0.0
发贴:22
|
#142002/12/11 15:12:08
写个函数就OK了 <%
dim objRegExp
set objRegExp = new RegExp '建立正则表达式对象
function HTMLEncode(strStrIn)
if strStrIn<>"" then
HTMLEncode = Server.HTMLEncode(strStrIn)
'先用HTMLEncode把字符串过滤一下,可以把诸如"<"之类的换成">"
objRegExp.Global = true
'设置搜索模式为全局匹配
objRegExp.Pattern = "\r" '当前匹配模式为回车
HTMLEncode=objRegExp.Replace(HTMLEncode," ") '替换回车为' '
objRegExp.Pattern = " " '当前匹配模式为空格
HTMLEncode=objRegExp.Replace(HTMLEncode," ") '替换空格为' '
objRegExp.Global = false
'设置搜索模式为默认的单字匹配
end if
end function%> 以上函数需要在装有ie5.0以上的系统中运行因为它需要用到正则表达式对象,需要高版本的VB script支持。 如果不用正则表达式,也可以象楼上的朋友说的一样用replace函数,只是效率稍微差一些罢了。格式是 Replace(要变换的字符串,要搜索的字符,要变换成的字符) 对于还有一些特殊字符的转换就要智者见智了,比如双引号有时也会对编码显示产生影响也应该加以限制。
|