整理了一些asp初学者常用的代码 (4) _tempcount = middlelayer(rs(0).value, rs(4).value, -CSDN博客

本文链接：https://blog.csdn.net/panzi667/article/details/148450

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%>