推荐：asp货币大写转换函数Function AtoC(a As Currency) As String '说明：本函数适合于万亿以下的货币转换，允许A的值是最多两位小数 '定义两个字符串，此处汉字与数字均按一位计算 Dim String1 As String '如下定义 Dim String2 As String '如下定义 Dim String3 As String '从原A
<% setrecordset1=server.createobject(adodb.recordset) exec=SELECT*FROMnewswhereid=&id recordset1.Openexec,conn,1,1 %> <tablewidth=85%border=0align=centercellpadding=3cellspacing=0> <tr><td> ....... <% IfRequest(page)=Then pageNum=0 Else pageNum=Request(page) Endif ContentStr=split(recordset1(detail),||) Fori=pageNumtopageNum %> <%=ContentStr(i)%> <%Next%> </td> </tr> <%ifubound(ContentStr)>=1then%> <tr> <tdheight=30>本文共分 <% Forp=0toubound(ContentStr) ifp+1=Request(page)+1then a=<fontcolor=red> aa=</font> else a= aa= endif %> <ahref=detail.asp?ID=<%=request(ID)%>&page=<%=p%>><%=a%><%=p+1%><%=aa%></a> <%Next%> 页</td> </tr> <%endif%> |
添加文章时，在想分页的地方，加入分割符 || 即可。
分享：怎样限制只能中文输入的方法。function isCharsInBag (s, bag) { var i,c; for (i = 0; i s.length; i++) { c = s.charAt(i);//字符串s中的字符 if (bag.indexOf(c) -1) return c; } return ; } 检查函数: function ischinese(s) { var errorChar; var badChar = ABCDEFGHIJKLMNOPQRST