如何取其中包括5的6位数、点击弹出窗口代码、一个调查代码实例、Round函数四舍五入不正确,怎么办

发布时间:2007年01月25日      浏览次数:5692 次
如何取其中包括5的6位数
在ASP中使用SQL语句之3:LIKE、NOT LIKE和 BETWEEN 日期:2002年7月9日 作者:ZDNET CHINA 人气: 15894 今日:3 [大 中 小] 你已经在上面取出w打头记录的例子中看到了LIKE的用法。LIKE判定词是一个非常有用的符号。不过,在很多情况下用了它可能会带给你太多的数据,所以在用到它之前最好先开动脑筋多想想自己到底想获得什么数据。假设你想取出5位数字的SKU号码,而且其开头是1结尾是5,那么你可以用下划符(_)代替%符号:
SQL = "SELECT * FROM Products WHERE p_sku LIKE '1___5'"
下划符表示任意一个字符。所以在输入“1 _ _ _ 5”的情况下,你的搜索就会限制在满足特定模式的5位数范围内了。
假如你想反其道而行之,要找出所有不匹配“1_ _ _ 5”模式的SKU条目。那么你只需要在刚才语句例子中的LIKE前面加上NOT就可以了。
BETWEEN
假设你想取出一定范围内的数据,而且你事先知道范围的起点和终点,那么你不妨采用BETWEEN 判断词。现在就让我们假设你想选取给定表内范围在 1和 10之间的记录。你可以如下使用BETWEEN:
…WHERE ID BETWEEN 1 AND 10
或者你也可以采用已经熟悉的数学判断字句:
…WHERE ID >= 1 AND ID >= 10
16:34 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!131.entry
点击弹出窗口代码
<a href="javascript:Download(<%=rs1("ID")%>)"><img src="../images/download_rm.gif" width="16" height="16" border="0" alt="马上下载"></a>

<script language="javascript">
function Listen(string)
{
window.open("show.asp?ID="+string,"1","height=100,width=300,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
function SendSong(string)
{
window.open("SendEmail.asp?ID="+string,"2","height=290,width=440,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
function SongWord(string)
{
window.open("Songword.asp?ID="+string,"3","height=290,width=450,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
function Download(string)
{
window.open("Download.asp?ID="+string,"4","height=290,width=440,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
</script>
9:45 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!130.entry
12月22日
生成静态页面的简单案例
<%
sql="SELECT top 7 * from alldata where catelog=4 ORDER BY ID DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>没有信息</p>"
else
while not rs.eof
'计算标题大小,如果超过20个字符就用...代替20个字符以后的字符。
title=rs("title")
id=rs("id")
sdate=rs("time")
'格式化时间,用做文件夹名。
if len(month(sdate))<2 then
folder=year(sdate)&"0"&month(sdate)
else
folder=year(sdate)&month(sdate)
end if
'设置文件名。
'dd=DateDiff("s","2002-10-01 0:00",sdate)
'filename=dd&id
'filename="article_"&year(sdate)&month(sdate)&day(sdate)&id
filename=year(sdate)&id
if len (title)>11 then
title=left(title,10)&""
%>
- <a href="content/<%=folder%>/<%=filename%>.html" title="<%=rs("title")%>" target=_blank><%=title%></a>
<%
else
title=rs("title")
%>
- <a href="content/<%=folder%>/<%=filename%>.html" target=_blank><%=title%></a>
<%end if%>
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
16:52 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!129.entry
一个调查代码实例
<% Response.Buffer=True %>
<!--#include file="inc/dbconn.inc"-->
<%
on error resume next
if request("stype")="" then
options=request("options")
if Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
response.write"<SCRIPT language=JavaScript>alert('感谢您的支持,您已经投过票了,请勿重复投票,谢谢!');"
response.write"javascript:window.close();</SCRIPT>"
end if
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
set rs=server.createobject("adodb.recordset")
sql1="update research set select"&options&"=select"&options&"+1 where id=1"
rs.open sql1,conn,3,3
set rs=nothing
end if %>
<%
set rs=server.createobject("adodb.recordset")
sql2="select * from research where id=1"
rs.open sql2,conn,1,1
if rs("selecta")="0" and rs("selectb")="0" and rs("selectc")="0" and rs("selectd")="0" then
response.write"<SCRIPT language=JavaScript>alert('目前尚无人参与调查!');"
response.write"javascript:window.close();</SCRIPT>"
end if
total=rs("selecta")+rs("selectb")+rs("selectc")+rs("selectd")
selecta=(rs("selecta")/total)*100
selectb=(rs("selectb")/total)*100
selectc=(rs("selectc")/total)*100
selectd=(rs("selectd")/total)*100 %><head>
<title>调查结果</title>
<LINK rel="stylesheet" href="inc/index.css" type="text/css">
</head>

<p align="center"> 
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="366" height="48">
<tr>
<td width="366" height="48" valign="top"><font color="#000000">调查结果
===============================================
[/red]
<font color="#000073">
您认为当前就业的压力主要原因?[/red]
</td>
</tr>
<tr>
<td width="366" height="111" valign="top">
A.国有企业下岗人员太多: <img src=images/research.gif width=<%=int(selecta*2)%> height=8> <%=rs("selecta")%>人 <%=round(selecta,3)%>%
B.大学毕业突然涌入:<img src=images/research.gif width=<%=int(selectb*2)%> height=8> <%=rs("selectb")%>人 <%=round(selectb,3)%>%
C.国家提供的工作机会不多:<img src=images/research.gif width=<%=int(selectc*2)%> height=8> <%=rs("selectc")%>人 <%=round(selectc,3)%>%
D.个人对工作的认识不够专业:<img src=images/research.gif width=<%=int(selectd*2)%> height=8> <%=rs("selectd")%>人 <%=round(selectd,3)%>% <font color="#000073">


共有【<%=total%>】人参加调查
===============================================[/red]
</td>
</tr>
</table>
</div>
<p align="center">【<a href="javascript:window.close()">关闭窗口</a>】
<% rs.close
set rs=nothing
conn.close
set conn=nothing %>

11:24 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!128.entry
Round函数四舍五入不正确,怎么办?
Round函数四舍五入不正确,怎么办? [ 作者:Dave Mc Donald 转贴自:ACCESS XP FAQ 点击数:25 更新时间:2004-11-10 文章录入:zhuyiwen ]

作 者:Dave Mc Donald
发布日期:2003年9月10日
摘 要:Round函数返回一个数值,该数值是按照指定的小数位数进行四舍五入运算的结果。可是当保留位跟着的即使是5,有可能进位,也有可能舍去,机会各50%。这样就会造成在应用程序中计算有误。下面这个函数能真正实现四舍五入功能,用以取代Round函数。
正 文:
Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double

'执行Round()函数,有可能进位
'也有可能舍去
Dim strFormatString As String '格式化字符串

'如果是“0”,则返回“0”,否则进行适当的格式化:
If dblInput <> 0 Then
strFormatString = "#." & String(intDecimals, "#")
RoundToLarger = Format(dblInput, strFormatString)
Else
RoundToLarger = 0
End If

End Function
11:14 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!127.entry
取得客户端的IP地址
今天学了Request.ServerVariables("REMOTE_ADDR")
发表:2004-10-26 9:33:51 出处:你的博客网(yourblog.org)
在ASP中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的IP地址,但如果客户端是使用代理服务器来访问,那取到的就是代理服务器的IP地址,而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址,就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要注意的事,并不是每个代理服务器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取客户端的真实 IP,有些用此方法读取到的仍然是代理服务器的IP。还有一点需要注意的是:如果客户端没有通过代理服务器来访问,那么用 Request.ServerVariables ("HTTP_X_FORWARDED_FOR") 取到的值将是空的。因此,如果要在程序中使用此方法,可以这样处理:
......
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
......
即:如果客户端通过代理服务器,则取 HTTP_X_FORWARDED_FOR 的值,如果没通过代理服务器,就取 REMOTE_ADDR 的值。
10:53 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!126.entry
function:用户登录时密码处理
pwd=mistake(request("pwd"))
<%
function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,1))+i)
next
encrypt = texts
end function
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,1))-i)
next
decrypt=texts
end function
function mistake(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Randomize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'" then
dist=dist+mid(texts,i,1)
end if
next
mistake = dist
end function
%>
10:31 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!125.entry
12月21日
function函数:htmlencode2
<%
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"<;;"
case ">"
result=result+">"
case chr(13)
result=result+" "
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(32)
'result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9)
result=result+" "
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
%>
16:29 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!124.entry
function函数:判断字数
<%
function strlen(str)
dim p_len,xx
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
end function
%>
16:22 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!123.entry
取得今日过生日的朋友
'取得今日过生日的朋友
Set rs_birthday = Server.CreateObject("ADODB.Recordset")
rs_birthday.open "select user_id,netname,sex,age,home from larchives where britherday = '%" & DatePart("m",date) & "-" & DatePart("d",date) & "'" ,conn,1,1
birnum=rs_birthday.recordcount

DatePart 函数 语言参考
启始页 | 版本 2
请参阅
描述
返回给定日期的指定部分。
语法
DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
DatePart 函数的语法有以下参数:
参数 描述 interval 必选。字符串表达式,表示要返回的时间间隔。有关数值,请参阅“设置”部分。 date 必选。要计算的日期表达式。 firstdayof week 可选。指定星期中的第一天的常数。如果没有指定,则默认为星期日。有关数值,请参阅“设置”部分。 firstweekofyear 可选。指定一年中第一周的常数。如果没有指定,则默认为 1 月 1 日所在的星期。有关数值,请参阅“设置”部分。
设置
interval 参数可以有以下值:
设置 描述 yyyy 年 q 季度 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 小时 m 分钟 s 秒
firstdayofweek 参数可以有以下值:
常数 值 描述 vbUseSystem 0 使用区域语言支持 (NLS) API 设置。 vbSunday 1 星期日(默认) vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六
firstweekofyear 参数可以有以下值:
常数 值 描述 vbUseSystem 0 使用区域语言支持 (NLS) API 设置。 vbFirstJan1 1 由 1 月 1 日所在的星期开始(默认)。 vbFirstFourDays 2 由在新年中至少有四天的第一周开始。 vbFirstFullWeek 3 由在新的一年中第一个完整的周(不跨年度)开始。
说明
DatePart 函数用于计算日期并返回指定的时间间隔。例如使用 DatePart 计算某一天是星期几或当前的时间。
firstdayofweek 参数会影响使用“w”和“ww”间隔符号的计算。
如果 date 是日期文字,则指定的年度会成为日期的固定部分。但是如果 date 被包含在引号 (" ") 中,并且省略年份,则在代码中每次计算 date 表达式时,将插入当前年份。这样就可以编写适用于不同年份的程序代码。
16:02 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!122.entry
取得当天会员总数
Set rs_today = Server.CreateObject("ADODB.Recordset")
rs_today.open "select user_id from user_reg where date=#" & cdate(date) & "#" ,conn,1,1
today_records=rs_today.recordcount
rs_today.close
set rs_today=nothing

CDate 函数 语言参考
启始页 | 版本 1
请参阅 描述
返回表达式,此表达式已被转换为 Date 子类型的 Variant。
语法
CDate(date)
date 参数是任意有效的日期表达式。
说明
IsDate 函数用于判断 date 是否可以被转换为日期或时间。CDate 识别日期文字和时间文字,以及一些在可接受的日期范围内的数字。在将数字转换为日期时,数字的整数部分被转换为日期,分数部分被转换为从午夜开始计算的时间。
CDate 根据系统的区域设置识别日期格式。如果数据的格式不能被日期设置识别,则不能判断年、月、日的正确顺序。另外,如果长日期格式包含表示星期几的字符串,则不能被识别。
15:50 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!121.entry
取得会员总数
Set rs_user = Server.CreateObject("ADODB.Recordset")
rs_user.open "user_reg",conn,1,1  ‘ user_reg为会员表
records=rs_user.recordcount
rs_user.close
set rs_user=nothing
共有[b]<%=records%>[/b]位会员
15:47 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!120.entry
RS.OPEN SQL,CONN,A,B
RS.OPEN SQL,CONN,A,B
A:
ADOPENFORWARDONLY(=0)
只读,且当前数据记录只能向下移动
ADOPENKEYSET(=1)
只读,当前数据记录可自由移动
ADOPENDYNAMIC(=2)
可读写,当前数据记录可自由移动
ADOPENSTATIC(=3)
可读写,当前数据记录可自由移动,可看到新增记录
B:
ADLOCKREADONLY(=1)
缺省锁定类型,记录集是只读的,不能修改记录
ADLOCKPESSIMISTIC(=2)
悲观锁定,当修改记录时,数据提供者将尝试锁定记录以确保成功地编辑记录。只要编辑一开始,则立即锁住记录。
ADLOCKOPTIMISTIC(=3)
乐观锁定 ,直到用Update方法提交更新记录时才锁定记录。
ADLOCKBATCHOPTIMISTIC(=4)
批量乐观锁定,允许修改多个记录,只有调用UpdateBatch方法后才锁定记录。
当不需要改动任何记录时,应该使用只读的记录集,这样提供者不用做任何检测。
对于一般的使用,乐观的锁定可能是最好的选择,因为记录只被锁定一小段时间,
数据在这段时间被更新。这减少了资源的使用。
15:31 固定链接 引用通告 (1) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!119.entry
elseif 多循环语句
if charisma<101 then
rank="自由天使"
elseif charisma>100 and charisma<301 then
rank="梦幻天使"
elseif charisma>300 and charisma<1001 then
rank="星梦天使"
elseif charisma>1000 and charisma<10001 then
rank="寻梦天使"
elseif charisma>100 and charisma<50001 then
rank="追梦天使"
elseif charisma>100 and charisma<150001 then
rank="缘梦天使"
elseif charisma>100 and charisma<500001 then
rank="浪漫天使"
elseif charisma>500000 then
rank="守护天使"
end if
14:59 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!118.entry
易房网搜索案例
dim search,search_qy,search_lx,search_hx,search_zj,search_mj_min,search_mj_max,search_jg_min,search_jg_max
search_qy=request("search_qy")
search_lx=request("search_lx")
search_hx=request("search_hx")
search_zj=request("search_zj")
search_mj_min=trim(request("search_mj_min"))
search_mj_max=trim(request("search_mj_max"))
search_jg_min=trim(request("search_jg_min"))
search_jg_max=trim(request("search_jg_max"))
search=""
if request("search_qy")<>"" then
search=search & "and qy='" & request("search_qy") & "'"
end if
if request("search_lx")<>"" then
search=search & " and wylx='" & request("search_lx") & "'"
end if
if request("search_hx")<>"" then
search=search & " and hx='" & request("search_hx") & "'"
end if
if request("search_zj")<>"" then
search=search & " and zj='" & request("search_zj") & "'"
end if
if search_mj_min<>"" then
search=search & " and int(jz_area)>=int('" & search_mj_min & "')"
end if
if search_mj_max<>"" then
search=search & " and int(jz_area)<=int('" & search_mj_max & "')"
end if
if search_jg_min<>"" then
search=search & " and int(pay)>=int('" & search_jg_min & "')"
end if
if search_jg_max<>"" then
search=search & " and int(pay)<=int('" & search_jg_max & "')"
end if
10:22 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!117.entry
12月20日
一个sub函数。
sub out(str)
response.write str
end sub

代替 response.write
out("参数传递出错!")
15:22 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!116.entry
如何处理textarea
bus=request("bus")
bus=replace(bus," "," ")
bus=replace(bus,chr(13)&chr(10),"<Br>")
15:09 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!113.entry
在一个页面完成添加和删除
<!--#include file=../include/config.asp-->
<!--#include file=../include/conn_view.asp-->
<%
if request("yyy")=111 then
dim rs,sql
sql="select * from [index_top1]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew
rs("title")=request("title")
rs("url")=request("url")
rs("color")=request("color")
rs("date")=now()
rs.update
response.write "发送成功"
response.end
end if
%>
<html>
<head>
<title>添加主页连接</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<script language="JavaScript">
<!--
function checkdata()
{
if(!CheckIsNull(form1.title,"请输入标题!")) return false;
if(!CheckIsNull(form1.url,"请输入url!")) return false;


}

//-->
</script>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<div align="center">
<font size="3">[b]添加主页连接[/b][/red]

</div>
<table width="687" border="0" cellpadding="0" cellspacing="2" class="kuan" align="center" bgcolor="#FFFFFF">
<tr>
<td background="../images/system1.gif" height="25" align="center" width="683"><font color="#FF6633" class="font">[b]<font color="#FF9B59">请输入以下表格来"<font color="#FFFFFF">添加主页链接[/red]"[/red][/b][/red]</td>
</tr>
<tr>
<td bgcolor="#E9F0F8" class="linkfont" align="center" valign="middle" height="215" width="683">
<form name="form1" method="post" action="add_index_company.asp?yyy=111" onsubmit="return checkdata()">
<table width="644" border="0" cellspacing="5" cellpadding="0">
<tr align="left" valign="middle">
<td width="71" height="30" align="right" class="font">加  色: </td>
<td width="214" class="font" height="30">
<select name="color">
<option value="#FF6600">加色</option>
<option value="" selected>不加色</option>
</select>
</td>
<td width="60" align="right" class="font"> </td>
<td width="274" class="font"> </td>
</tr>
<tr align="left" valign="middle">
<td width="71" height="30" align="right" class="font">标  题: </td>
<td colspan="3" class="font" height="30">
<input name="title" type="text" class="textinput" size="80" maxlength="11">
(12个字) </td>
</tr>
<tr align="left" valign="middle">
<td height="30" align="right" class="font" width="71">url连接: </td>
<td height="30" class="font" colspan="3">
<input name="url" type="text" class="textinput" size="80" maxlength="50">
</td>
</tr>
</table>

<table width="578" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle">
<input type="submit" name="Submit" value="提交" class="textbotton">
 
<input type="reset" name="Submit2" value="重填" class="textbotton">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
<!--#include file=../include/foot.asp-->
15:04 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!112.entry
2.分页代码:
<%
sql="select * from Activity order by o_id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else pagecount=1
end if
rs.pagesize=10
rs.AbsolutePage=pagecount
do while not rs.eof
%>
中间是循环内容
<%
rs.movenext
i=i+1
if i>=rs.pagesize then exit do
loop
%>
<tr align="center" bgcolor="#FFFFFF">
<td height="24" colspan="4" bgcolor="#FFFFFF">
<table border="0" cellspacing="0" cellpadding="2" width="100%" align="center" bgcolor="#666666">
<tr>
<td height="24">
<div align="right"><font color="#FFFFFF">页次: [b]<%=pagecount%>/<%=rs.pagecount%>[/b]
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
[/red]<a href="index.asp?page=<%=cstr(pagecount+1)%>"><font color="#FFFFFF">下一页[/red]</a><font color="#FFFFFF">
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
[/red]<a href="index.asp?page=<%=cstr(pagecount-1)%>"><font color="#FFFFFF">上一页[/red]</a><font color="#FFFFFF">
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
[/red]<a href="index.asp?page=<%=cstr(pagecount-1)%>"><font color="#FFFFFF">上一页[/red]</a><a href="index.asp?page=<%=cstr(pagecount+1)%>"><font color="#FFFFFF">下一页[/red]</a><font color="#FFFFFF">
<% end if
%>
[/red] <img src="img/spacer.gif" width="20" height="1"></div>
</td>
</tr>
</table>
</td>
</tr>
==========================================================
<SCRIPT LANGUAGE="JavaScript">
<!--
function GON()
{
var pageno;
var strs;
if(form1.pp.value=="")
{
pageno=1;
}
else
{
pageno=form1.pp.value;
}
strs="view_index_company.asp?PageNO=" + pageno;
window.location.href=strs;
}
//-->
</SCRIPT>
  <%
dim strSql,rs,i,PageNo
strSql="select * from [index_top1] order by id desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
rs.PageSize=3
PageNo=request("PageNo")
if PageNo<1 or not isnumeric(PageNo) then
PageNo=1
end if
if cint(PageNo)>rs.PageCount then
PageNo=rs.PageCount
end if
if rs.recordcount>0 then
rs.AbsolutePage =PageNo
    %>
    <%
for i=1 to rs.pageSize
if rs.eof then exit for
    %>
    <%
rs.movenext
next
    %>
共<% = rs.pagecount %> 页
当前第<% = PageNo %>页
到第 <input class="textinput" name="pp" type="text" size="2"> 页
<INPUT class="textinput" TYPE="button" value="GO" onclick="javascript:GON()">
<a href="view_index_company.asp?PageNo=1">首页</a>
<a href="view_index_company.asp?PageNo=<%= (PageNo-1) %> ">上一页</a>
<a href="view_index_company.asp?PageNo=<%= (PageNo+1) %>">下一页</a>
<a href="view_index_company.asp?PageNo=<%= rs.pagecount %>">尾页</a>
14:17 固定链接 引用通告 (0) 记录它
固定链接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!110.entry
1.返回代码
response.Write("<script>alert('您输入的密码为空!');history.back(-1);</script>")

if rs.bof or rs.eof then
response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码,请重新输入!');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
if request("stype")="" then
options=request("options")
if Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
response.write"<SCRIPT language=JavaScript>alert('感谢您的支持,您已经投过票了,请勿重复投票,谢谢!');"
response.write"javascript:window.close();</SCRIPT>"
end if
文章来源:http://kfivory.spaces.live.com/
免责声明:本站相关技术文章信息部分来自网络,目的主要是传播更多信息,如果您认为本站的某些信息侵犯了您的版权,请与我们联系,我们会即时妥善的处理,谢谢合作!