在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。
设计方法：
1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
3、不要考虑文件名，程序的每次翻页都能在当前页面。

想清楚了上面3个问题，我们的公共翻页模块就可以动手了。

<%
'+++++++++++++++++++++++++++++++++++++
'◆模块名称： 公共翻页模块
'◆文 件 名： TurnPage.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If

'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页</td>
<td align="right">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
Else%>
<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%End If

If PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>

<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
<td width=95>转到第
<%If TotalPage = 1 Then%>
<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
<%Else%>
<input type=text name=PageNo size=3 value="" title=请输入页号,然后回车>
<%End If%>页
</td>
</tr>
</table>
<%End Sub%>

当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。

调用方法:
1、在程序开始或要使用翻页的地方包含翻页模块文件；
2、定义变量：RowCount，每页显示的记录条数
3、调用翻页过程：Call TurnPage(记录集,RowCount)
4、在Do While 循环输出记录集的条件中加上" RowCount > 0 " 条件
5、在循环结束 "Loop前" 加上： RowCount = RowCount - 1

'-----------------------------------------------------
调用范例：
文件名：News.asp

<%
Dim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
Conn.Open "cpm","cpm","cpm"

Dim Sql
Sql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获取的记录集

'公共翻页模块开始%>
<!--#include file=../Public/TurnPage.asp-->
<%
Dim RowCount
RowCount = 10 '每页显示的记录条数
Call TurnPage(Rs_News,RowCount)
'公共翻页模块结束%>

<table width=100%>
<tr>
<td>新闻编号</td>
<td>新闻标题</td>
<td>发布日期</td>
<tr>
<%
If Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
%>
<tr>
<td><%=Rs_News("ID")%></td>
<td><%=Rs_News("Name")%></td>
<td><%=Rs_News("Date")%></td>
<tr>
<%
RowCount = RowCount - 1
Rs_News.MoveNext
Loop
End If
%>



修正：
<%
If Not Rs_News.eof then
Do while Not Rs_News.eof and RowCount>0
%>

而那个公共模块缺<form>,改后：
<%
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If
'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td width="258" align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页 总共<%=RecordCount%>条 </td>
<td width="308" align="right"> <div align="center">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
Else%>
<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%End If

If PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>
<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%>
</div></td>
<td width=189><form name="form1" method="post" action=""> 转到第 <% If TotalPage = 1 Then%>
<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
<input type="submit" name="Submit" value="Go" disabled style="background:#d3d3d3">
<%Else%>
<input type=text name=PageNo size=3 >
<input type="submit" name="Submit" value="Go">
<%End If%>
</form>
页
</td>
</tr>
</table>
<%End Sub%> 　如果我们知道一个静态文件的实际路径如：http://www.xx.com/download/51windows.pdf，如果服务器没有作特别的限制设置，我们就可以毫不费力的把它下载下来！当网站提供51windows.pdf下载时，怎么样才能让下载者无法得到他的实际路径呢！本文就来介绍如何使用Asp来隐藏文件的实际下载路径。

　　我们在管理网站文件时，可以把扩展名一样的文件放在同一个目录下，起一个比较特别名字，例如放pdf文件目录为the_pdf_file_s，把下面代码另存为down.asp，他的网上路径为http://www.xx.com/down.asp，我们就可以用http://www.xx.com/down.asp?FileName=51windows.pdf来下载这个文件了，而且下载者无法看到这个文件实际下载路径的！在down.asp中我们还可以设置下载文件是否需要登陆，判断下载的来源页是否为外部网站，从而可以做到防止文件被盗链。

示例代码：

<%
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(From_url,8,len(Serv_url)) <> Serv_url then
response.write "非法链接！" '防止盗链
response.end
end if

if Request.Cookies("Logined")="" then
response.redirect "/login.asp" '需要登陆！
end if
Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名！"
Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "非法操作！"
Response.End
End Select
Response.Clear
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" '对图像文件不出现下载对话框
else
Response.ContentType = "application/ms-download"
end if
Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
if lcase(right(FileName,3))="pdf" then '设置pdf类型文件目录
TrueFileName = "/the_pdf_file_s/"&FileName
end if
if lcase(right(FileName,3))="doc" then '设置DOC类型文件目录
TrueFileName = "/my_D_O_C_file/"&FileName
end if
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
TrueFileName = "/all_images_/"&FileName '设置图像文件目录
end if
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>

会员注册以后，有些会员可能会遇到忘记登录密码的问题，因而网站具备“找回密码”功能不仅是必须的，而且是服务贴心的具体表现之一。在此，levitian写了一个“找回密码”的小教程，供初学动态网站设计的朋友们借鉴，希望对大家有所帮助。

●相关说明：
·levitian假设您已经作好了会员系统，接下来准备作“找回密码”功能但还没有作，或者您不知道怎么作这个功能，那么刚好可以看看本教程。
·国内大多数服务器都支持Jmail邮件组件，因而levitian就使用该组件实现邮件发送功能；
·传统的“找回密码”功能要使用“密码取回问题”和“密码取回答案”等字段，但levitian认为大可不必这么繁琐，反正最终目的是将密码发进用户的邮箱里，而用户的邮箱只有自己可以收发邮件，那么以上这两个字段就可以省略了。实际上只要填上用户名和自己的邮箱，按“找回密码”，启动Jmail邮件组件把密码发至用户邮箱－－就这么简单！
·levitian用的是Dreamweaver MX，您用Dreamweaver UltraDev当然也没问题了。
·本系统主要用到了DW服务器行为中的“登录用户”和“插入”菜单中的“文件头标签”中的“刷新”子功能。用户不知道登录密码没关系，他可以用自己的用户名和邮箱找回密码，但如果该用户的邮箱是假的（胡填的），或根本没有在自己的注册资料中填邮箱，或者他输入了别人的邮箱，那么他也就无法进入找回密码的页面，当然也就无法找回自己的密码了~

好了，说了一大堆废话：） 赶快GO →

●步骤一：制作相关的ASP页面
我们需要增加三个页面，一个页面是“找回密码登录页面”，这里我命名为getbackpass.asp；另一个是“密码发送成功报告页面”，这里我命名为getbackpassok.asp；第三个页面为邮箱不存在或用户名不正确时显示错误信息的页面，这里我命名为getbackpassfail.asp。

●步骤二：在会员登录页面增加“找回密码”文本型链接或图片型链接
在会员登录界面中输入文本“找回密码”或者插入一张图片，将其链接至找回密码登录页面getbackpass.asp；如果您想把“找回密码”链接放在其它页面，当然没问题了。

●步骤三：制作找回密码登录页面getbackpass.asp
·打开找回密码登录页面getbackpass.asp，建立表单域，插入两个文本域，第一个命名为MemberName，第二个命名为MemberEmail（您的会员信息数据表中的会员姓名字段和会员邮箱字段如不是MemberName和MemberEmail，请修改成相应的字段名），接下来插入一个“按钮”，命名为“取回密码”。
·打开服务器行为面板，点击“＋”，选择“用户身份验证”中的“登录用户”，在“登录用户”面板中，我主要说说以下项目的设置：
使用连接验证：我们选择已经定义好的DSN连接
表格：我们选择会员注册信息表单
用户名列：我们选择MemberName
密码列：我们选择MemberEmail
如果登录成功转到：我们选择getbackpassok.asp
如果登录失败转到：我们选择getbackpassfail.asp
基于以下项限制访问：我们选择“用户名和密码”
OK！可以按“确定”按钮了。
·加入表单验证代码
为防止用户不填表单就登录，可加入以下代码，让用户必须填写内容：
将DW切换到源代码视图，首先，将以下代码加入<head> </head>之间：

<script language="javascript">
<!--
function checkdata() {
if (document.form1.MemberName.value=="") {
window.alert ("请输入用户名 ！")
return false
}
if (document.form1.MemberEmail.value=="") {
window.alert ("请输入您的邮箱 ！")
return false
}
return true
}
//-->
</script>

接下来，在<form>标签里插入以下代码：onSubmit="return checkdata()"
这样，表单验证就作好了。

●步骤四：制作密码发送成功报告页面getbackpassok.asp
·打开密码发送成功报告页面getbackpassok.asp，输入文本“密码已发至您的邮箱中，请查询密码后登录本站！”
·建立数据集member，您当然可以用其它的数据集名称：
连接：一栏选择您定义的DSN连接
表格：一栏选择会员信息数据表member
列：一栏选定会员ID、用户名、密码和邮箱这四个字段
筛选：MemberName=阶段变量MM_Username
排序：不用填
至此，数据集就建立好了。在筛选里，我们之所以用阶段变量（Session Variable），是因为我们需要筛选出找回密码的用户。使用DW服务器行为的“登录用户”行为以后，登录者的名称（数据库中的MemberName字段）就自动保存在名为MM_Username的Session变量中。这们使用“MemberName=阶段变量MM_Username”作为筛选条件，自然可以筛选出想找回密码的用户了。
·接下来我们加入Jmail邮件发送代码。将Dreamweaver设计界面切换到显示代码视图，找见如下代码：
<%
Dim member__MMColParam
member__MMColParam = "1"
If (Session("MM_Username") <> "") Then
member__MMColParam = Session("MM_Username")
End If
%>
<%
set member = Server.CreateObject("ADODB.Recordset")
member.ActiveConnection = MM_spsguavaskirtdate_STRING
member.Source = "SELECT MemberID, MemberName, Password, MemberEmail FROM Member WHERE MemberName = '" + Replace(member__MMColParam, "'", "''") + "'"
member.CursorType = 0
member.CursorLocation = 2
member.LockType = 3
member.Open()
member_numRows = 0
%>
这是数据集形成的代码，然后在倒数第二行，即%>上一行，插入以下Jmail组件代码：
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.emaichina.net:25"
JMail.Sender = "emai@emaichina.net"
JMail.Subject = "您的登录密码"
JMail.AddRecipient(member.Fields.Item("MemberEmail").Value)
JMail.Body = "尊敬的用户您好，首先感谢您使用我们的服务！." & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "您的用户名是：" &(member.Fields.Item("MemberName").Value) & vbCrLf
JMail.Body = JMail.Body & "您的注册邮箱是：" &(member.Fields.Item("MemberEmail").Value) & vbCrLf
JMail.Body = JMail.Body & "您的登录密码是：" &(member.Fields.Item("Password").Value) & vbCrLf
JMail.Body = JMail.Body & "请妥善保管您的密码，如再次遗忘密码，请登录至http://www.emaichina.net/member/memberpage/getbackpass.asp 取回您的密码，谢谢您使用本系统。" & vbCrLf
JMail.Body = JMail.Body & "顺祝商祺！" & vbCrLf
JMail.Body = JMail.Body & "译媒艺术咨询有限公司"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute

以上代码简单说明如下：
JMail.ServerAddress= 后面填上您的SMTP服务器，如"mail.emaichina.net:25，千万别忘了填端口号:25；
JMail.Sender= 后面填上您的邮箱，如emai@emaichina.net，请确保此邮箱可以正常收发邮件；
JMail.Subject = 后面输入信件标题，如"您的登录密码"，切记，文本之间一定要加上“"”；
JMail.AddRecipient后面插入数据集member中的邮箱字段，如(member.Fields.Item("MemberEmail").Value)；
JMail.Body =后面输入信件的称谓部分，如： "尊敬的用户您好，首先感谢您使用我们的服务！." & vbCrLf & vbCrLf
JMail.Body = 后面开始输入信件内容，如果是动态内容，那么插入数据集中的相应字段，如果是静态内容，则直接输入文本即可。每一段使用一个JMail.Body =，结尾都加上vbCrLf，有多少段就拷贝粘贴多少个JMail.Body =，这样就可以写出来一封完整的找回密码回复信。
关于vbCrLf说明：vbCrLf的作用是换行，您想空一行就加一个 vbCrLf，想空两行就加两个vbCrLf…但在vbCrLf和vbCrLf之间一定要加“&”符号将它们隔开，否则会出现错误提示。

●制作显示错误信息页面getbackpassfail.asp
如果用户名、密码错误或用户名和密码根本不存在，那么系统会转到显示错误信息页面，并且在2秒后自动返回“找回密码登录页面”。下面是制作方法：
打开getbackpassfail.asp，在页面中输入文本“您的邮箱不存在，请确认您在注册资料中填写了邮箱！ ”，然后，打开DW软件菜单中的→插入”→“文件头标签”→“刷新”，“延迟”填上2，就是2秒，如果您想让页面保持时间更长，也可以填3秒、5秒甚至10秒；“操作”选择“转到URL”，填上getbackpass.asp，这样这个页面2秒钟后就会自动回到“找回密码登录页面”了。
OK！这个页面就做好了，很简单！

●测试这个找回密码系统
以上系统作好后，您可以测试一下。如果您在本地测试，并且不是用的Win98操作系统，那么需要安装Jmail邮件组件（这个组件可去下载网站下载，是免费的）；如果您用的是Win98操作系统或您的计算机中没有安装Jmail邮件组件，那么，可把这个系统上传到支持Jmail邮件组件的服务器空间上，试着找回密码，如果没问题，说明您成功了。如果有问题，请仔细查看制作步骤或代码有没有错误，这里祝您好运！
说明：学会“找回密码系统”的制作方法后，您可以举一反三作一个会员注册后的邮件自动回复系统，也相当简单，大家可以试一下。

●“找回密码”邮件样式
以下是levitian测试本系统后，在Foxmail收到的邮件，样式基本上这样的：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
尊敬的用户您好，首先感谢您使用我们的服务！.

您的用户名是：levi
您的注册邮箱是：levitian@163.com
您的登录密码是：741127
请妥善保管您的密码，如再次遗忘密码，请登录至member/memberpage/getbackpass.asp 取回您的密码，谢谢您使用本系统。
顺祝商祺！

有一页填表的页面，其中有几个下拉表单是通过一个表的某个字段动态 生成，比如省下面的城市名，希望选择某一个省即可自动在另一下拉表 单内生成城市名，.....然后提交给asp处理加入到另外一个表内。 <form name=f1 METHOD="POST"> <% OpenDB objConn, "xxxx" Set RSClass = objConn.Execute("SELECT * FROM class Order by fldClass") If RSClass.EOF Then Response.Write "没有记录。<BR>" Else Response.Write "<SELECT NAME=""class"" style=""FONT-SIZE: 9pt"" SIZE=10" & _ " ONCHANGE=""classselected(this);"" >" sjavascript = "function classselected(elem){" &_ vbCrlf & _ "for (var i = document.f1.sort.options.length; i >= 0; i--){" & vbCrlf & _ "document.f1.sort.options[i] = null;" & _ vbCrlf Do Until RSClass.EOF If sLastClass <> RSClass("fldClass") Then sLastClass = RSClass("fldClass") Response.Write "<OPTION VALUE=" & RSClass("fldID") & ">" & sLastClass & "</OPTION>" sjavascript = sjavascript & "}" & vbCrlf & _ "if (elem.options[elem.selectedIndex].value==" & _ RSClass("fldID") & "){" & vbCrlf End If sjavascript = sjavascript & _ "document.f1.sort.options[document." & _ "f1.sort.options.length] = new Option('" & _ RSClass("fldSort") & "','" & RSClass("fldID") & "');" & _ vbCrlf RSClass.MoveNext Loop Response.Write "</SELECT>" Response.Write "<SELECT NAME=""sort"" style=""FONT-SIZE: 9pt"" SIZE=10>" Response.Write "<OPTION>[请选择]</OPTION>" Response.Write "</SELECT>" sjavascript = sjavascript & vbCrlf & "}" & vbCrlf & "}" & vbCrlf Response.Write "<SCR" & "IPT LANGUAGE=""javascript"">" & vbCrlf Response.Write sjavascript & vbCrlf & "</SCR" & "IPT>" & vbCrlf End If RSClass.Close Set RSClass = Nothing%> </form>

在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数

rsa.asp
<%
rem 在ASP中实现加密与解密,加密方法:根据RSA
rem 联系:hnsoso@sina.com
Class clsRSA

　　Public PrivateKey
　　Public PublicKey
　　Public Modulus
　　
　　
　　
　　Public Function Crypt(pLngMessage, pLngKey)
　　　　On Error Resume Next
　　　　Dim lLngMod
　　　　Dim lLngResult
　　　　Dim lLngIndex
　　　　If pLngKey Mod 2 = 0 Then
　　　　　　lLngResult = 1
　　　　　　For lLngIndex = 1 To pLngKey / 2
　　　　　　　　lLngMod = (pLngMessage ^ 2) Mod Modulus
　　　　　　　　' Mod may error on key generation
　　　　　　　　lLngResult = (lLngMod * lLngResult) Mod Modulus
　　　　　　　　If Err Then Exit Function
　　　　　　Next
　　　　Else
　　　　　　lLngResult = pLngMessage
　　　　　　For lLngIndex = 1 To pLngKey / 2
　　　　　　　　lLngMod = (pLngMessage ^ 2) Mod Modulus
　　　　　　　　On Error Resume Next
　　　　　　　　' Mod may error on key generation
　　　　　　　　lLngResult = (lLngMod * lLngResult) Mod Modulus
　　　　　　　　If Err Then Exit Function
　　　　　　Next
　　　　End If
　　　　Crypt = lLngResult
　　End Function

　　Public Function Encode(ByVal pStrMessage)
　　　　Dim lLngIndex
　　　　Dim lLngMaxIndex
　　　　Dim lBytAscii
　　　　Dim lLngEncrypted
　　　　lLngMaxIndex = Len(pStrMessage)
　　　　If lLngMaxIndex = 0 Then Exit Function
　　　　For lLngIndex = 1 To lLngMaxIndex
　　　　　　lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
　　　　　　lLngEncrypted = Crypt(lBytAscii, PublicKey)
　　　　　　Encode = Encode & NumberToHex(lLngEncrypted, 4)
　　　　Next
　　End Function
　　
　　Public Function Decode(ByVal pStrMessage)
　　　　Dim lBytAscii
　　　　Dim lLngIndex
　　　　Dim lLngMaxIndex
　　　　Dim lLngEncryptedData
　　　　Decode = ""
　　　　lLngMaxIndex = Len(pStrMessage)
　　　　For lLngIndex = 1 To lLngMaxIndex Step 4
　　　　　　lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
　　　　　　lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
　　　　　　Decode = Decode & Chr(lBytAscii)
　　　　Next
　　End Function
　　
　　Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
　　　　NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
　　End Function

　　Private Function HexToNumber(ByRef pStrHex)
　　　　HexToNumber = CLng("&h" & pStrHex)
　　End Function

End Class
%>

test.asp
<!--#INCLUDE FILE="RSA.asp"-->
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA

　　LngKeyE = "32823"
　　LngKeyD = "20643"
　　LngKeyN = "29893"
　　StrMessage = Message
　　
　　Set ObjRSA = New clsRSA
　　
　
　　　　　　ObjRSA.PublicKey = LngKeyE
　　　　　　ObjRSA.Modulus = LngKeyN
　　　　　　Encryptstr = ObjRSA.Encode(StrMessage)
　　Set ObjRSA = Nothing
end function

function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA

　　LngKeyE = "32823"
　　LngKeyD = "20643"
　　LngKeyN = "29893"
　　StrMessage = Message
　　
　　Set ObjRSA = New clsRSA

　　　　　　ObjRSA.PrivateKey =LngKeyD
　　　　　　ObjRSA.Modulus=LngKeyN
　　　　　　decryptstr=ObjRSA.Decode(StrMessage)
　　Set ObjRSA = Nothing
end function

dim last,first
first="sohu"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)

%>

<SCRIPT language="javascript">
　　function IfWindowClosed()
　　{　　
　　　　var win = null;
　　　　try
　　　　{
　　　　　　window.opener.name = "ss";
　　　　　　if ( window.opener.name != "ss" )
　　　　　　{
　　　　　　　　win = window.open("quit.asp","","width=100,height=100,left=10000,top=10000");
　　　　　　　　window.setTimeout("window.close();",0);
　　　　　　}
　　　　　　window.opener.name = "";
　　　　}
　　　　catch(e)
　　　　{
　　　　　　win = window.open("quit.asp","","width=100,height=100,left=10000,top=10000");
　　　　　　window.setTimeout("window.close();",0);
　　　　}
　　}
　　
　　window.setInterval("IfWindowClosed()",100);
　　window.setTimeout("window.close();",510);
</SCRIPT>
---------------

用onunload事件打开上面的文件

quit.asp为保存数据的文件，上面的文件用来检测窗口是关闭还是刷新

ie5兼容，以前使用 window.opener.closed来判断，ie5不支持closed 属性。
上面的代码经过多次测试，暂时没有发现问题

<%  Set pop3 = Server.CreateObject( "JMail.POP3" )
  
  'pop3的连接用户名，密码，pop3地址
  pop3.Connect "username", "password", "mail.mydomain.com"

  Response.Write( "你有" & pop3.count & " 封邮件。<br><br>" )

  if pop3.count > 0 then
    Set msg = pop3.Messages.item(1)     
    ReTo = ""
    ReCC = ""
    
    Set Recipients = msg.Recipients
    separator = ", "
    
    ' 现在得到所有的收件人，并且存储
    
    For i = 0 To Recipients.Count - 1
        If i = Recipients.Count - 1 Then
            separator = ""
        End If
    
        Set re = Recipients.item(i)
        If re.ReType = 0 Then
            ReTo = ReTo & re.Name & "&nbsp;(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" &
separator
        else
            ReCC = ReTo & re.Name & "&nbsp;(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" &
separator
        End If
    Next
    
    '这个程序得到附件，并且保存到服务器的硬盘上。也可以返回附件的详细连接
    Function getAttachments()
          Set Attachments = msg.Attachments
          separator = ", "
    
          For i = 0 To Attachments.Count - 1
            If i = Attachments.Count - 1 Then
                separator = ""
             End If
    
             Set at = Attachments(i)
             at.SaveToFile( "c:\EMail\attachments\" & at.Filename )
             getAttachments = getAttachments & "<a href=""/EMail/attachments/" & at.Filename &""">" &_
                                 at.FileName & "(" & at.Size  & " bytes)" & "</a>" & separator
          Next
    End Function
      
    %>    
    <html>
      <body>
        <TABLE>
          <tr>
            <td>邮件标题</td>
            <td><%= msg.Subject %></td>
          </tr>
          <tr>
            <td>发件人</td>
            <td><%= msg.FromName %></td>
          </tr>
          <tr>
            <td>收件人</td>
            <td><%= ReTO %></td>
          </tr>
          <tr>
            <td>抄送</td>
            <td><%= ReCC %></td>
          </tr>
          <tr>
            <td>附件</td>
            <td><%= getAttachments %></td>
          </tr>
          <tr>
            <td>内容</td>
            <td><pre><%= msg.Body %></pre></td>
          </tr>        
        </TABLE>
      </body>
    </html>

<%  end if

  pop3.Disconnect

%>
提交时可能会有人修改script从本地提交，这样存在安全提交的问题，所以应该要求从服务器断路径提交，其他地址提交提交无无效：
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana'>"
response.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！"
response.write "</td></tr></table></center>"
response.end
end if
%>




防止从外部提交数据的方法:
*******************************

第一种做法，屏蔽特殊字符和关键字

fqys=request.servervariables("query_string")

dim nothis(18)

nothis(0)="net user"

nothis(1)="xp_cmdshell"

nothis(2)="/add"

nothis(3)="exec%20master.dbo.xp_cmdshell"

nothis(4)="net localgroup administrators"

nothis(5)="select"

nothis(6)="count"

nothis(7)="asc"

nothis(8)="char"

nothis(9)="mid"

nothis(10)="'"

nothis(11)=":"

nothis(12)=""""

nothis(13)="insert"

nothis(14)="delete"

nothis(15)="drop"

nothis(16)="truncate"

nothis(17)="from"

nothis(18)="%"

errc=false

for i= 0 to ubound(nothis)

if instr(FQYs,nothis(i))<>0 then

errc=true

end if

next

if errc then

response.write "<script language=""javascript"">"

response.write "parent.alert('很抱歉!你正在试图攻击本服务器或者想取得本服务器最高管理权!将直接转向首页..');"

response.write "self.location.href='default.asp';"

response.write "</script>"

response.end

end if

---

第二种可以防止客户从本地提交到网站上

<%

server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))

server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

if mid(server_v1,8,len(server_v2))<>server_v2 then

response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"

response.write "<tr><td style=font:9pt Verdana>"

response.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！"

response.write "</td></tr></table></center>"

response.end

end if

%>

---

第三。这样可以防止在输入框上打上or 1=1 的字样

If Instr(request("username"),"=")>0 or

Instr(request("username"),"%")>0 or

Instr(request("username"),chr(32))>0 or

Instr(request("username"),"?")>0 or

Instr(request("username"),"&")>0 or

Instr(request("username"),";")>0 or

Instr(request("username"),",")>0 or

Instr(request("username"),"'")>0 or

Instr(request("username"),"?")>0 or

Instr(request("username"),chr(34))>0 or

Instr(request("username"),chr(9))>0 or

Instr(request("username"),"")>0 or

Instr(request("username"),"$")>0 or

Instr(request("username"),">")>0 or

Instr(request("username"),"<")>0 or

Instr(request("username"),"""")>0 then

其实想实现这种功能很简单，首先要上传一个RAR的解压程序，就是RAR自己的解压程序，只需要它的核心 
程序RAR.EXE这个文件就可以了。然后就要上传一个执行RAR.EXE的程序 CMD.EXE 这个是windows里的程序（不必我在多说了吧）。最后就开始执行这些程序了。看一下下面的代码 

<% 

dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso 

Mlpath="E:\page\mian\"　　'存放RAR.EXE和CMD.EXE的路径 

ylj=Server.mappath("mian")&"\"　'解压文件后所放的路径 

ywj=Server.mappath("mian\apathy.rar")　'要解压的RAR文件 

Set Shell = Server.CreateObject("WScript.Shell") 

rarcomm= "E:\page\mian\cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- " 

cmd=rarcomm&ywj&" "&ylj 

RetCode = Shell.Run(cmd,1, True) 

%> 

　 就是用Server.CreateObject("WScript.Shell")来执行CMD.EXE来运行RAR.EXE文件来解压RAR文件的。 
以前不知道是否有前辈们发表过这些文章，但那位兄弟有兴趣的可以以用这种方法来实现诸多类似与这样的程序，希望你们可以找到一些更好的方法。  要达到二级名的效果，必须一下条件以及流程：
1、必须有一个顶级域名，而且此域名必须做好泛解析并做好指向。
2、必须有一台独立的服务器。泛解析的域名指向该服务器。
3、在服务器上的IIS建一个空的主机头名的web站点。
4、将默认的页面设置为你的二机解析程序（比如：freedns.asp）
5、二级域名系列程序（包括申请页：shenqing.htm，添加页add.asp,解析页，）


此程序的优点：
a，可以限制申请域名的敏感字,比如 hacker,wwww,sex,china等
b, 可以限制申请域名的非法字，比如：！·#￥%……—*（）——？‘“/等
c, 每个地址只能申请一个域名。
d，限制申请域名的长度，
e, 如果用户所访问的域名没人申请则转到特定的页面，本例中的http://www.51bxg.com/miss.html
f, 申请了域名：***.yourname.com 可以同时支持：http://***.yourname.com 以及http://www.***.youranme.com 两个域名的访问。


一下为系列程序代码：
shenqing.htm

<form action=adddns.asp method=post name=Frm onSubmit="return check_input()"> <br>             <font color=red>加*号为必填内容</font>                  <br>
       您想注册的域名：           
                      http://<input  name="nowurl" size=12& ... sp;      
                                style=" BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-SIZE: 9pt"> .51bxg.com        
          　　　　 <br>
你实际的网站地址：
      <input  name="tourl" size=12           
                                style=" BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-SIZE: 9pt">
你要求显示的title：
    <input  name="company" size=12           
                                style=" BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-SIZE: 9pt">


<br>
          <input type="submit" name="Submit" value=" 提 交 信 息 " style="border:1px double rgb(88,88,88);font:9pt">
          　　 
          <input type="reset" name="Reset" value=" 重 新 填 写 " style="border:1px double rgb(88,88,88);font:9pt">
                  </p>
      </form>


   添加记录页面add.asp
<!--#include file="char.inc"-->
<!--#include file="conn.asp"-->
<%
uID=request.cookies("*****")
%>
<%
   dim nowurl,tourl,company,along,pbkey
   nowurl=trim(request.form("nowurl"))+".51bxg.com"
   nurl=trim(request.form("nowurl"))
   tourl=trim(request.form("tourl"))
   company=trim(request.form("company"))
   along=20
   pbkey="www,sex,admin,w,ww,wwww,hacker,hack"


   set rs=server.createobject("adodb.recordset")
   sql="select * from dns where userid='"&uid&"'"
   rs.open sql,conn,1,1
   if not rs.EOF then
   response.write"很抱歉，你已经申请过二级域名，每个用户只能申请一个二级域名！<br>你申请的二级域名是：http://"+rs("nowurl")
   response.end
   end if


   set rs=server.createobject("adodb.recordset")
   sql="select * from dns where nowurl='"&nowurl&"'"
   rs.open sql,conn,1,1
   if not rs.eof then
   response.write"很抱歉，你申请的域名：http://"+nowurl+"已经被其他公司申请，请另外申请域名。"
   response.end
   end if
  
   if len(nurl)>along then
   response.write"很抱歉，你输入的域名太长，请重新输入"
   response.end 
   end if

   if instr(pbkey,nurl) then
   response.write"很抱歉，你输入的域名因为含有敏感字而不管理员屏蔽，请重新输入。" 

 
 

--------------------------------------------------------------------------------
   response.end
   end if

'判断字符的合法性
if instr(nurl,"~") or instr(nurl,"`") or instr(nurl,"/") or instr(nurl,"?") or instr(nurl,">") or instr(nurl,"<") or instr(nurl,";") or instr(nurl,":") or instr(nurl,"}") or instr(nurl,"{") or instr(nurl,")") or instr(nurl,"(") or instr(nurl,"*") or instr(nurl,"&") or instr(nurl,"^") or instr(nurl,"%") or instr(nurl,".") or instr(nurl,",") or instr(nurl,"'") or instr(nurl,"~") or instr(nurl,"!") or instr(nurl,"$") then
   response.write"很抱歉，你输入的域名含有非法字符，请重新输入，以下字符为非法字符：<br>~ ` / ? > < ; : } { ) ( * & ^ % $ # @ !  "
   response.end
end if


   set rs=server.createobject("adodb.recordset")
   sql="select * from ** where theid is null"
   rs.open sql,conn,3,3
   rs.addnew
   rs("userid")=uID
   rs("nowurl")=nowurl
   rs("tourl")=tourl
   rs("company")=company
   rs.update
   response.write"祝贺，申请成功，你马上就可使用你的域名：http://"+nowurl
%> 


域名解吸程序： freedns.asp
<!--#include file="conn.asp"-->
<%
dim geturl
geturl=replace(Request.ServerVariables("HTTP_HOST"),"www.","")

   set rs=server.createobject("adodb.recordset")
   sql="select * from tb where nowurl='"&geturl&"'"
   rs.open sql,conn,1,1
   if rs.eof then
   response.redirect"http://www.51bxg.com/miss.html"
   else
   dim tourl,company
   tourl=rs("tourl")
   company=rs("company")
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META CONTENT="text/html; CHARSET=UTF-8" HTTP-EQUIV="Content-Type">
<TITLE><% =company %></TITLE>
</HEAD>


<frameset frameborder="0" framespacing="0" scrolling="no" border="0" marginheight="0" marginwidth="0" rows="0,*">
<frame scrolling="NO" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main" SRC="about:blank">

<frame scrolling="yes" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main" SRC="<% =tourl %>">

<noframes>
<body>
<p>This page uses frames, but your browser doesn't support them.</p></body>
</noframes>
</frameset>
</HTML>
<% end if %>