如何取其中(zhōng)包括5的6位數、點擊彈出窗口代碼、一(yī)個調查代碼實例、Round函數四舍五入不正确,怎麽辦

發布時間:2007年01月25日      浏覽次數:6800 次
如何取其中(zhōng)包括5的6位數
在ASP中(zhōng)使用SQL語句之3:LIKE、NOT LIKE和 BETWEEN 日期:2002年7月9日 作者:ZDNET CHINA 人氣: 15894 今日:3 [大(dà) 中(zhōng) 小(xiǎo)] 你已經在上面取出w打頭記錄的例子中(zhōng)看到了LIKE的用法。LIKE判定詞是一(yī)個非常有用的符号。不過,在很多情況下(xià)用了它可能會帶給你太多的數據,所以在用到它之前最好先開(kāi)動腦筋多想想自己到底想獲得什麽數據。假設你想取出5位數字的SKU号碼,而且其開(kāi)頭是1結尾是5,那麽你可以用下(xià)劃符(_)代替%符号:
SQL = "SELECT * FROM Products WHERE p_sku LIKE '1___5'"
下(xià)劃符表示任意一(yī)個字符。所以在輸入“1 _ _ _ 5”的情況下(xià),你的搜索就會限制在滿足特定模式的5位數範圍内了。
假如你想反其道而行之,要找出所有不匹配“1_ _ _ 5”模式的SKU條目。那麽你隻需要在剛才語句例子中(zhōng)的LIKE前面加上NOT就可以了。
BETWEEN
假設你想取出一(yī)定範圍内的數據,而且你事先知(zhī)道範圍的起點和終點,那麽你不妨采用BETWEEN 判斷詞。現在就讓我(wǒ)(wǒ)們假設你想選取給定表内範圍在 1和 10之間的記錄。你可以如下(xià)使用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="馬上下(xià)載"></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日
生(shēng)成靜态頁面的簡單案例
<%
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
'計算标題大(dà)小(xiǎo),如果超過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
一(yī)個調查代碼實例
<% 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.國有企業下(xià)崗人員(yuán)太多: <img src=images/research.gif width=<%=int(selecta*2)%> height=8> <%=rs("selecta")%>人 <%=round(selecta,3)%>%
B.大(dà)學畢業突然湧入:<img src=images/research.gif width=<%=int(selectb*2)%> height=8> <%=rs("selectb")%>人 <%=round(selectb,3)%>%
C.國家提供的工(gōng)作機會不多:<img src=images/research.gif width=<%=int(selectc*2)%> height=8> <%=rs("selectc")%>人 <%=round(selectc,3)%>%
D.個人對工(gōng)作的認識不夠專業:<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函數返回一(yī)個數值,該數值是按照指定的小(xiǎo)數位數進行四舍五入運算的結果。可是當保留位跟着的即使是5,有可能進位,也有可能舍去(qù),機會各50%。這樣就會造成在應用程序中(zhōng)計算有誤。下(xià)面這個函數能真正實現四舍五入功能,用以取代Round函數。
正 文:
Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double

'執行Round()函數,有可能進位
'也有可能舍去(qù)
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中(zhōng)使用 Request.ServerVariables("REMOTE_ADDR") 來取得客戶端的IP地址,但如果客戶端是使用代理服務器來訪問,那取到的就是代理服務器的IP地址,而不是真正的客戶端IP地址。要想透過代理服務器取得客戶端的真實IP地址,就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 來讀取。不過要注意的事,并不是每個代理服務器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 來讀取客戶端的真實 IP,有些用此方法讀取到的仍然是代理服務器的IP。還有一(yī)點需要注意的是:如果客戶端沒有通過代理服務器來訪問,那麽用 Request.ServerVariables ("HTTP_X_FORWARDED_FOR") 取到的值将是空的。因此,如果要在程序中(zhōng)使用此方法,可以這樣處理:
......
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
取得今日過生(shēng)日的朋友
'取得今日過生(shēng)日的朋友
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
請參閱
描述
返回給定日期的指定部分(fēn)。
語法
DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
DatePart 函數的語法有以下(xià)參數:
參數 描述 interval 必選。字符串表達式,表示要返回的時間間隔。有關數值,請參閱“設置”部分(fēn)。 date 必選。要計算的日期表達式。 firstdayof week 可選。指定星期中(zhōng)的第一(yī)天的常數。如果沒有指定,則默認爲星期日。有關數值,請參閱“設置”部分(fēn)。 firstweekofyear 可選。指定一(yī)年中(zhōng)第一(yī)周的常數。如果沒有指定,則默認爲 1 月 1 日所在的星期。有關數值,請參閱“設置”部分(fēn)。
設置
interval 參數可以有以下(xià)值:
設置 描述 yyyy 年 q 季度 m 月 y 一(yī)年的日數 d 日 w 一(yī)周的日數 ww 周 h 小(xiǎo)時 m 分(fēn)鍾 s 秒
firstdayofweek 參數可以有以下(xià)值:
常數 值 描述 vbUseSystem 0 使用區域語言支持 (NLS) API 設置。 vbSunday 1 星期日(默認) vbMonday 2 星期一(yī) vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六
firstweekofyear 參數可以有以下(xià)值:
常數 值 描述 vbUseSystem 0 使用區域語言支持 (NLS) API 設置。 vbFirstJan1 1 由 1 月 1 日所在的星期開(kāi)始(默認)。 vbFirstFourDays 2 由在新年中(zhōng)至少有四天的第一(yī)周開(kāi)始。 vbFirstFullWeek 3 由在新的一(yī)年中(zhōng)第一(yī)個完整的周(不跨年度)開(kāi)始。
說明
DatePart 函數用于計算日期并返回指定的時間間隔。例如使用 DatePart 計算某一(yī)天是星期幾或當前的時間。
firstdayofweek 參數會影響使用“w”和“ww”間隔符号的計算。
如果 date 是日期文字,則指定的年度會成爲日期的固定部分(fēn)。但是如果 date 被包含在引号 (" ") 中(zhōng),并且省略年份,則在代碼中(zhōng)每次計算 date 表達式時,将插入當前年份。這樣就可以編寫适用于不同年份的程序代碼。
16:02 固定鏈接 引用通告 (0) 記錄它
固定鏈接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!122.entry
取得當天會員(yuán)總數
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 識别日期文字和時間文字,以及一(yī)些在可接受的日期範圍内的數字。在将數字轉換爲日期時,數字的整數部分(fēn)被轉換爲日期,分(fēn)數部分(fēn)被轉換爲從午夜開(kāi)始計算的時間。
CDate 根據系統的區域設置識别日期格式。如果數據的格式不能被日期設置識别,則不能判斷年、月、日的正确順序。另外(wài),如果長日期格式包含表示星期幾的字符串,則不能被識别。
15:50 固定鏈接 引用通告 (0) 記錄它
固定鏈接http://kfivory.spaces.live.com/blog/cns!9CF6BCE40FC199C5!121.entry
取得會員(yuán)總數
Set rs_user = Server.CreateObject("ADODB.Recordset")
rs_user.open "user_reg",conn,1,1  ‘ user_reg爲會員(yuán)表
records=rs_user.recordcount
rs_user.close
set rs_user=nothing
共有[b]<%=records%>[/b]位會員(yuán)
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)
隻讀,且當前數據記錄隻能向下(xià)移動
ADOPENKEYSET(=1)
隻讀,當前數據記錄可自由移動
ADOPENDYNAMIC(=2)
可讀寫,當前數據記錄可自由移動
ADOPENSTATIC(=3)
可讀寫,當前數據記錄可自由移動,可看到新增記錄
B:
ADLOCKREADONLY(=1)
缺省鎖定類型,記錄集是隻讀的,不能修改記錄
ADLOCKPESSIMISTIC(=2)
悲觀鎖定,當修改記錄時,數據提供者将嘗試鎖定記錄以确保成功地編輯記錄。隻要編輯一(yī)開(kāi)始,則立即鎖住記錄。
ADLOCKOPTIMISTIC(=3)
樂觀鎖定 ,直到用Update方法提交更新記錄時才鎖定記錄。
ADLOCKBATCHOPTIMISTIC(=4)
批量樂觀鎖定,允許修改多個記錄,隻有調用UpdateBatch方法後才鎖定記錄。
當不需要改動任何記錄時,應該使用隻讀的記錄集,這樣提供者不用做任何檢測。
對于一(yī)般的使用,樂觀的鎖定可能是最好的選擇,因爲記錄隻被鎖定一(yī)小(xiǎo)段時間,
數據在這段時間被更新。這減少了資(zī)源的使用。
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日
一(yī)個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
在一(yī)個頁面完成添加和删除
<!--#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">請輸入以下(xià)表格來"<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.分(fēn)頁代碼:
<%
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
%>
中(zhōng)間是循環内容
<%
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">下(xià)一(yī)頁[/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">上一(yī)頁[/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">上一(yī)頁[/red]</a><a href="index.asp?page=<%=cstr(pagecount+1)%>"><font color="#FFFFFF">下(xià)一(yī)頁[/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) %> ">上一(yī)頁</a>
<a href="view_index_company.asp?PageNo=<%= (PageNo+1) %>">下(xià)一(yī)頁</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/
免責聲明:本站相關技術文章信息部分(fēn)來自網絡,目的主要是傳播更多信息,如果您認爲本站的某些信息侵犯了您的版權,請與我(wǒ)(wǒ)們聯系,我(wǒ)(wǒ)們會即時妥善的處理,謝謝合作!