[转帖]ASP编程常用的代码

翔羽 · 发表于 2006-2-25 12:38:43

产生一个密码，并记录到数据库，然后发送给用户<hr/> This article Generates a password random, Requires a database and Mails the Password.<%@language="vbscript" %>****************************** <% 'code by Manikantan 'Web Developer '3rd Agenda 'Nungambakkam, Chennai India %><% set mail= server.CreateObject("cdonts.newmail") mail.subject="Thank You for Registering" mail.to = mailid mail.from ="Webmaster@thesite" mail.body= "This is the Initial Password to our site...." & vbcrlf &href='mailto:mailid="user@ursite.com'>mailid="user@ursite.com" address="address" 'other data like phone number as per the member database in the site 'all these values are obtained from the request method from a .htm which submits to this file 'Mainly employed in registration 'Assumes You have cdonts.dll installed in the web server.set conn = server.CreateObject("adodb.connection") conn.Open "dsn","uid","pwd" set rec= conn.Execute("select count(*) from membertable") id = cint(rec.fields(0))+1 r=rnd *50 Response.Write r & " " for i = 0 to 20 if cint(r)>0 and cint(r)<26 then str=str +chr(97 + cint(r)) r=rnd *100 next Response.Write str pwd=left(str,2) pwd=pwd & id pwd=pwd & right(str,2) pwd=pwd & second(time)'An Update Query can be Passed from here for the username ,password and other details or can be triggered from another page 'when the user responds to the mail...Something like sending a url as a mail and on click of the url in the mail..call another page 'which updates ..so we can be sure that only confirmed users are updated%> <% set mail= server.CreateObject("cdonts.newmail") mail.subject="Thank You for Registering" mail.to = mailid mail.from ="Webmaster@thesite" mail.body= "This is the Initial Password to our site...." & vbcrlf & "Change it if You Want" & vbcrlf & pwd & vbcrlf & "Thank You for Using the Site" mail.send %>

翔羽 · 发表于 2006-2-25 12:39:09

会员系统“找回密码”的制作方法<hr/>会员注册以后，有些会员可能会遇到忘记登录密码的问题，因而网站具备“找回密码”功能不仅是必须的，而且是服务贴心的具体表现之一。在此，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">  </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("

assword").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之间一定要加“&”符号将它们隔开，否则会出现错误提示。

翔羽 · 发表于 2006-2-25 12:39:30

●制作显示错误信息页面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 请妥善保管您的密码，如再次遗忘密码，请登录至http://www.emaichina.net/member/memberpage/getbackpass.asp 取回您的密码，谢谢您使用本系统。 顺祝商祺！

翔羽 · 发表于 2006-2-25 12:40:05

从数据库中动态选取下拉列表的方法<hr/>有一页填表的页面，其中有几个下拉表单是通过一个表的某个字段动态 生成，比如省下面的城市名，希望选择某一个省即可自动在另一下拉表 单内生成城市名，.....然后提交给asp处理加入到另外一个表内。<form name=f1 METHOD="

OST"> <% OpenDB objConn, "xxxx" Set RSClass = objConn.Execute("SELECT * FROM class Order by fldClass") If RSClass.EOF Then Response.Write "没有记录。 "ElseResponse.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 = 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>

翔羽 · 发表于 2006-2-25 12:40:34

在asp中加密与解密对应的函数<hr/>在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  <% 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) %>

翔羽 · 发表于 2006-2-25 12:41:03

使用ASP生成HTML文件<hr/><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head><body> <table width="770" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><form name="form1" method="post" action="send.asp"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCFFFF"> <tr> <td height="20"><div align="center">发送消息</div></td> </tr> <tr> <td><div align="center"> <textarea name="msg" cols="100" rows="6"></textarea> </div></td> </tr> <tr> <td><div align="center"> <input type="submit" name="Submit" value="Submit"> <input type="reset" name="Submit2" value="Reset"> </div></td> </tr> </table> </form></td> </tr> </table> </body> </html> '//send.asp<hr/><% function chan_time(shijian)'转换日期时间函数 s_year=year(shijian) if len(s_year)=2 then s_year="20"&s_year s_month=month(shijian) if s_month<10 then s_month="0"&s_month s_day=day(shijian) if s_day<10 then s_day="0"&s_day s_hour=hour(shijian) if s_hour<10 then s_hour="0"&s_hour s_minute=minute(shijian) if s_minute<10 then s_minute="0"&s_minute chan_time=s_year & s_month & s_day & s_hour & s_minute end functionfunction chan_data(shijian) '转换日期时间函数 s_year=year(shijian) if len(s_year)=2 then s_year="20"&s_year s_month=month(shijian) if s_month<10 then s_month="0"&s_month s_day=day(shijian) if s_day<10 then s_day="0"&s_day chan_data=s_year & s_month & s_day end functionfunction chan_file(shijian)'转换日期时间函数 s_month=month(shijian) if s_month<10 then s_month="0"&s_month s_day=day(shijian) if s_day<10 then s_day="0"&s_day s_hour=hour(shijian) if s_hour<10 then s_hour="0"&s_hour s_minute=minute(shijian) if s_minute<10 then s_minute="0"&s_minute s_ss=second(shijian) if s_ss<10 then s_ss="0"&s_ss chan_file = s_month & s_day & s_hour & s_minute & s_ss end function top="<html><head><title>news</title></head><body>" botom="</body></html>" msg=request.Form("msg") msg=replace(msg,vbcrlf,"") msg=replace(msg,chr(9),"") msg=replace(msg," ","&nbsp;") msg=replace(msg,"\r\n"," ") msg=replace(msg,"\n"," ") msg=top&msg&botom Set fs=Server.CreateObject("Scripting.FileSystemObject") all_tree2=server.mappath("news")&"\"&chan_data(now) if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在 else fs.CreateFolder(all_tree2) end if pass=chan_file(now) randomize '使用系统计时器来初始化乱数产生器 pass=rnd(pass) pass=get_pass(pass) pass=left(pass,10)<hr/> file1=pass files=file1&".txt" filez=all_tree2&"\"&files set ts = fs.createtextfile(filez,true) '写文件 for z=1 to len(msg) write_now=mid(msg,z,1) ts.write(write_now) next ' ts.writeline(all_msg) ts.close set ts=nothing '文件生成if err.number<>0 or err then%> <script language="javascript"> alert("不能完成") </script> <%else%> <script language="javascript"> alert("已完成") history.back(); </script> <%end if Set MyFile = fs.GetFile(filez) all_tree2=server.mappath("news")&"\"&chan_data(now) if (fs.FolderExists(all_tree2)) then else fs.CreateFolder(all_tree2) end if MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".htm" set MyFile=nothing set fs=nothing set fdir=nothing function get_pass(pass)pass=cstr(pass) pass=replace(pass," ","") pass=replace(pass," ","") pass=replace(pass,"-","") pass=replace(pass," ","") pass=replace(pass,":","") pass=replace(pass,".","") pass=replace(pass,"+","") pass=replace(pass,"_","") pass=replace(pass,"<","") pass=replace(pass,">","") pass=replace(pass,"!","") pass=replace(pass,"@","") pass=replace(pass,"#","") pass=replace(pass,"$","") pass=replace(pass,"%","") pass=replace(pass,"^","") pass=replace(pass,"&","") pass=replace(pass,"*","") pass=replace(pass,"(","") pass=replace(pass,")","") pass=replace(pass,"=","") pass=replace(pass,"\","") pass=replace(pass,"/","") pass=replace(pass,"|","") get_pass=pass

翔羽 · 发表于 2006-2-25 12:41:29

彩色校验码的制作<hr/>要读懂这些代码主要是要了解ASP中操作二进制数据的对象ADODB.Stream！本程序主要用的就是Adodb.Stream，如果你有这个基础，就可以进一步添加更多的功能如加入杂点，渐变底色，数字行列错位，笔画短点，提高被ocr识别的不可能。目前还没有好的识别引擎,昨天下载了个号称能识别图像验证码90%的！把4321识别成 89910,所以图像码还是比较安全的。在网上看到有暴力破解的方法，如果我用图像附加码+禁止外部提交+10次密码错误封帐号 +50次密码错误琐死IP+10秒的防刷新间隔注册页，登陆页均要加上+禁止外部提交，这样,暴力破解应该就没戏了。Asp文件：Code.Asp 数据文件：body.Fix , Head.Fix 用法：<img src="code.asp">Response.buffer = true NumCodeFunction NumCode() Response.Expires = -1 Response.AddHeader "

ragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" dim zNum,i,j dim Ados,Ados1 Randomize timer 生成随机四位数字： zNum = cint(8999*Rnd+1000) 传递给session Session("GetCode") = zNum 该for循环是将随机数字放入一个下标3的数组，便于提供给后面的阵列变换 dim zimg(3),NStr NStr=cstr(zNum) For i=0 to 3 zimg(i)=cint(mid(NStr,i+1,1)) Next dim Pos'定义二个 ADODB.Stream binary对象,作图像数据操作之用:set Ados=Server.CreateObject("Adodb.Stream") Ados.Mode=3 Ados.Type=1 Ados.Open set Ados1=Server.CreateObject("Adodb.Stream") Ados1.Mode=3 Ados1.Type=1 Ados1.Open '载入0~9的数字数据10x100的，Gbr的阵列数据,每个320字节,10个数字3200byte 'BGR一个点,10x10个点一个数字，一个点三个字节(二进制8位，16进制 00~FF) '一行10个点 30字节 + 行结束标记 00 00 二字节 32字节，所以一个10x100宽小于长的图像每个数字10x10是320字节 '长大于宽的则无行结束标记 0000,直接是300字节 这些就是BMP 24bit的数据详细信息了 ‘至于头部，也很简单，包含长宽，图像开始标记等等~~才54字节，远没jpg什么的复杂Ados.LoadFromFile(Server.mappath("body.Fix")) Ados1.write Ados.read(1280) '第一个for循环,按生成的随机数字顺序从 10X100的数字阵列中提取出相应的四个数字 但是竖排的数字阵列 for i=0 to 3 Ados.Position=(9-zimg(i))*320 Ados1.Position=i*320 Ados1.write ados.read(320) next '清空已经用完的ADOS的数据，调入替换新的图像头54字节的头文件 Ados.LoadFromFile(Server.mappath("head.fix"))

os=lenb(Ados.read()) Ados.Position=Pos '指定Pos位置,即可再偏移54字节的位置添加图形数据 第二个for循环，进行数字的阵列变换，由竖排的块转换为横排的数字块 方法是隔320字节抽取4次30字节写入ados对象，再抽取偏移第二行的图像数据 30字节是因为bmp 宽大于长时无00 00的行结束标记 for i=0 to 9 step 1 for j=0 to 3 Ados1.Position=i*32+j*320 Ados.Position=Pos+30*j+i*120 Ados.write ados1.read(30) next next Ados.Position=0 response.BinaryWrite直接向客户端发送图像数据 Response.ContentType = "image/BMP" Response.BinaryWrite Ados.read() Ados.Close:set Ados=nothing Ados1.Close:set Ados1=nothing End Function

翔羽 · 发表于 2006-2-25 12:42:43

远程获取内容，并将内容存在本地电脑上，包括任何文件<hr/><% '------------------------------------------------------------------------ '-------------------无垠网域：http://www.5inet.net/ --------------------- '-------------------作者：嘻哈呵嘿 ,webmaster@5inet.net ----------------- '----------远程获取内容，并将内容存在本地电脑上，包括任何文件！---------- '---------------利用xmlhttp和adodb.stream,酷！绝对原创！----------------- 'On Error Resume Next 'Set the content type to the specific type that you are sending. 'Response.ContentType = "IMAGE/JPEG" '-------------------------------定义输出格式-----------------------------

ath=request.querystring("p") sPath = Path if left(lcase(path),7) <> "http://" then '-------------如果前面没有http就是本地文件，交给LocalFile处理------------ LocalFile(path) else '--------------------否则为远程文件，交给RemoteFile处理------------------ RemoteFile(Path) end if 'Response.Write err.Description sub LocalFile(Path) '-------------------如果为本地文件则简单的跳转到该页面------------------- Response.Redirect Path End Sub Sub RemoteFile(sPath) '-------------------------处理远程文件函数------------------------------ FileName = GetFileName(sPath) '-------------GetFileName为把地址转换为合格的文件名过程------------- FileName = Server.MapPath("/UploadFile/Cache/" & FileName) Set objFso = Server.CreateObject("Scripting.FileSystemObject") 'Response.Write fileName if objFso.FileExists(FileName) Then '--------------检查文件是否是已经访问过,如是，则简单跳转------------ Response.Redirect "/uploadfile/cache/" & GetFileName(path) Else '----------------否则的话就先用GetBody函数读取---------------------- 'Response.Write Path t = GetBody(Path) '-----------------用二进制方法写到浏览器上-------------------------- Response.BinaryWrite t Response.Flush '-----------------输出缓冲------------------------------------------ SaveFile t,GetFileName(path) '------------------将文件内容缓存到本地路径，以待下次访问----------- End if Set objFso = Nothing End Sub Function GetBody(url) '-----------------------本函数为远程获取内容的函数--------------------- 'on error resume next 'Response.Write url Set Retrieval = CreateObject("Microsoft.XMLHTTP") '----------------------建立XMLHTTP对象----------------------------- With Retrieval .Open "Get", url, False, "", "" '------------------用Get，异步的方法发送----------------------- .Send 'GetBody = .ResponseText GetBody = .ResponseBody '------------------函数返回获取的内容-------------------------- End With Set Retrieval = Nothing 'response.Write err.Description End Function Function GetFileName(str) '-------------------------本函数为合格化的文件名函数------------------- str = Replace(lcase(str),"http://","") str = Replace(lcase(str),"//","/") str = Replace(str,"/","") str = replace(str,vbcrlf,"") GetFileName = str End Function sub SaveFile(str,fName) '-------------------------本函数为将流内容存盘的函数------------------- 'on error resume next Set objStream = Server.CreateObject("ADODB.Stream") '--------------建立ADODB.Stream对象，必须要ADO 2.5以上版本--------- objStream.Type = adTypeBinary '-------------以二进制模式打开------------------------------------- objStream.Open objstream.write str '--------------------将字符串内容写入缓冲-------------------------- 'response.Write fname objstream.SaveToFile "c:\inetpub\myweb\uploadfile\cache\" & fName,adSaveCreateOverWrite '--------------------将缓冲的内容写入文件-------------------------- 'response.BinaryWrite objstream.Read objstream.Close() set objstream = nothing '-----------------------关闭对象，释放资源------------------------- 'response.Write err.Description End sub %>

翔羽 · 发表于 2006-2-26 10:53:20

ASP代码的对象化<hr/>提起ASP很多人就认为是一堆HTML脚本和被括在<%和%>之中的一些代码还有就是一些JAVASCRIPT脚本等筹在一起的一些代码的集合，这样的代码，再加上各类的不同格式的注释，看起来就一个字：乱。也不管别人能不能看得懂，只要是能实现自己的目的就可以了，因为ASP的代码也是脚本，给了客户也不可能不被人看到其中的内容，经多包容在DLL中一部分业务逻辑，但是还是觉得ASP代码是最不值钱的代码，没有人回去购买，可以随时从别人的网站中查看源码的形式得到别人辛辛苦苦编写出来的独特风格的东东。这些原因使ASP的发展成为了一种编的快忘的也快的代码，可读性，维护性也是各种语言中最为差的代码。 其实，ASP代码也可以像其他语言一样的面向对象，模块化，将很多页面集成封装到一个类中，运用类中的不同方法来显示不同的页面，这样你可以将同一业务逻辑下的页面和逻辑封装到一个类里，用不同的方法来实现。说了这么多，可能大家的思路都乱了，赶快给大家一点范例来看看：<% '****************************************'* 类名：clsWebWorkFlowLog '* 功能：工作流日志跟踪类'* History： '* 作成：doface '* 日期：2003/10/24 Ver 1.0 '* 改动： '* 日期：'****************************************class clsWebWorkFlowLog'定义公开属性存放Connection对象 public ActiveConnection private oResponse '======================================== '= 过程名：main '= 参数： '= 功　能：主调函数 '= 根据不同动作参数执行不同的操作 '= 返回值： '======================================== sub main() select case Request("act") case "list" list() case else list() end select end sub '======================================== '= 过程名：list '= 参数： '= 功　能：显示列表画面 '= 返回值： '======================================== sub list() dim oRs set oRs = ActiveConnection.execute("select *,(select name from wf_config where id=w.wf_id) as wfname from wf_log w where step_id=1 and user_id=" & session("usr")("uid")) '(select * from wf_log where id in (select max(id),wf_id,tab_id,rec_id from wf_log group by wf_id,tab_id,rec_id where wf_id= and tab_id=)) %> <img border="0" src="../images/desk/workflow-new.gif" WIDTH="32" HEIGHT="32">待办事宜： <center><table bgColor="#FFFFFF" border="1" borderColorDark="#ffffff" borderColorLight="#c0c0c0" cellSpacing="0" width="99%" height="25"> <tr> <td bgColor="#808080" height="15">流程名称</td> <td bgColor="#808080" height="15">申请人</td> <td bgColor="#808080" height="15">申请时间</td> <td bgColor="#808080" height="15">完成时间</td> <td bgColor="#808080" height="15">状态</td> <td bgColor="#808080" height="15">操作</td> </tr><% do while not oRs.eof dim maxID,Next_id if glbFunc.getMaxID(oRs("id").value,ActiveConnection,maxID,Next_id) then %><tr> <td bgColor="#ffffff" height="19"><%=oRs("wfname")%></a></td> <td bgColor="#ffffff" height="19"><%=session("usr")("name")%>&nbsp;</td> <td bgColor="#ffffff" height="19"><%=oRs("exetime")%>&nbsp;</td> <td bgColor="#ffffff" height="19">&nbsp;</td> <td bgColor="#ffffff" height="19"><%=glbFunc.getCurZT(oRs("id").value,ActiveConnection)%></td> <td bgColor="#ffffff" height="19"><a href="../PubExeTab/PubExeTab.asp?act=view&tab_id=<%=oRs("tab_id")%>&id=<%=oRs("rec_id")%>"><img src="../images/action/view.gif" border="0" alt="详细" WIDTH="16" HEIGHT="16"></a>&nbsp;<a href="javascript:newin('wfimage.asp?act=list&id=<%=oRs("wf_id")%>&bz=1&step_id=<%=next_id%>',true,false,false,false,true);"><img src="../images/action/lcchuli.gif" border="0" alt="流程追踪" WIDTH="16" HEIGHT="16"></a>&nbsp;</td><% end if %></tr><% oRs.movenext loop %></table> </center> <% end sub end class '**************************************** '* 类结束 '**************************************** '**************************************** 'ASP页面开始 '****************************************'输出标准HTML头 glbFunc.writeHEADdim oWebWorkFlowLog set oWebWorkFlowLog = new clsWebWorkFlowLog set oWebWorkFlowLog.ActiveConnection = glbFunc.getADOConnectionoWebWorkFlowLog.main glbFunc.writeTail() %>可以添加更多的方法，这样这一个类就能完成以前多个ASP文件的功能。访问的时候，在 .ASP之后加上参数（要访问哪个函数）即可区分出来。

翔羽 · 发表于 2006-2-26 10:53:20

ASP代码的对象化<hr/>提起ASP很多人就认为是一堆HTML脚本和被括在<%和%>之中的一些代码还有就是一些JAVASCRIPT脚本等筹在一起的一些代码的集合，这样的代码，再加上各类的不同格式的注释，看起来就一个字：乱。也不管别人能不能看得懂，只要是能实现自己的目的就可以了，因为ASP的代码也是脚本，给了客户也不可能不被人看到其中的内容，经多包容在DLL中一部分业务逻辑，但是还是觉得ASP代码是最不值钱的代码，没有人回去购买，可以随时从别人的网站中查看源码的形式得到别人辛辛苦苦编写出来的独特风格的东东。这些原因使ASP的发展成为了一种编的快忘的也快的代码，可读性，维护性也是各种语言中最为差的代码。 其实，ASP代码也可以像其他语言一样的面向对象，模块化，将很多页面集成封装到一个类中，运用类中的不同方法来显示不同的页面，这样你可以将同一业务逻辑下的页面和逻辑封装到一个类里，用不同的方法来实现。说了这么多，可能大家的思路都乱了，赶快给大家一点范例来看看：<% '****************************************'* 类名：clsWebWorkFlowLog '* 功能：工作流日志跟踪类'* History： '* 作成：doface '* 日期：2003/10/24 Ver 1.0 '* 改动： '* 日期：'****************************************class clsWebWorkFlowLog'定义公开属性存放Connection对象 public ActiveConnection private oResponse '======================================== '= 过程名：main '= 参数： '= 功　能：主调函数 '= 根据不同动作参数执行不同的操作 '= 返回值： '======================================== sub main() select case Request("act") case "list" list() case else list() end select end sub '======================================== '= 过程名：list '= 参数： '= 功　能：显示列表画面 '= 返回值： '======================================== sub list() dim oRs set oRs = ActiveConnection.execute("select *,(select name from wf_config where id=w.wf_id) as wfname from wf_log w where step_id=1 and user_id=" & session("usr")("uid")) '(select * from wf_log where id in (select max(id),wf_id,tab_id,rec_id from wf_log group by wf_id,tab_id,rec_id where wf_id= and tab_id=)) %> <img border="0" src="../images/desk/workflow-new.gif" WIDTH="32" HEIGHT="32">待办事宜： <center><table bgColor="#FFFFFF" border="1" borderColorDark="#ffffff" borderColorLight="#c0c0c0" cellSpacing="0" width="99%" height="25"> <tr> <td bgColor="#808080" height="15">流程名称</td> <td bgColor="#808080" height="15">申请人</td> <td bgColor="#808080" height="15">申请时间</td> <td bgColor="#808080" height="15">完成时间</td> <td bgColor="#808080" height="15">状态</td> <td bgColor="#808080" height="15">操作</td> </tr><% do while not oRs.eof dim maxID,Next_id if glbFunc.getMaxID(oRs("id").value,ActiveConnection,maxID,Next_id) then %><tr> <td bgColor="#ffffff" height="19"><%=oRs("wfname")%></a></td> <td bgColor="#ffffff" height="19"><%=session("usr")("name")%>&nbsp;</td> <td bgColor="#ffffff" height="19"><%=oRs("exetime")%>&nbsp;</td> <td bgColor="#ffffff" height="19">&nbsp;</td> <td bgColor="#ffffff" height="19"><%=glbFunc.getCurZT(oRs("id").value,ActiveConnection)%></td> <td bgColor="#ffffff" height="19"><a href="../PubExeTab/PubExeTab.asp?act=view&tab_id=<%=oRs("tab_id")%>&id=<%=oRs("rec_id")%>"><img src="../images/action/view.gif" border="0" alt="详细" WIDTH="16" HEIGHT="16"></a>&nbsp;<a href="javascript:newin('wfimage.asp?act=list&id=<%=oRs("wf_id")%>&bz=1&step_id=<%=next_id%>',true,false,false,false,true);"><img src="../images/action/lcchuli.gif" border="0" alt="流程追踪" WIDTH="16" HEIGHT="16"></a>&nbsp;</td><% end if %></tr><% oRs.movenext loop %></table> </center> <% end sub end class '**************************************** '* 类结束 '**************************************** '**************************************** 'ASP页面开始 '****************************************'输出标准HTML头 glbFunc.writeHEADdim oWebWorkFlowLog set oWebWorkFlowLog = new clsWebWorkFlowLog set oWebWorkFlowLog.ActiveConnection = glbFunc.getADOConnectionoWebWorkFlowLog.main glbFunc.writeTail() %>可以添加更多的方法，这样这一个类就能完成以前多个ASP文件的功能。访问的时候，在 .ASP之后加上参数（要访问哪个函数）即可区分出来。



软考应考经验分享交流	IT项目管理师电子资料	系分·项管·信工·必读	会声会影下载
IT项管考前一个月复习安排	分享历届IT项管真题答案	历年软考分数线大全	IT项目管理新手看什么书？
清华、电工教材比较	国家信息技术紧缺人才	哪些软考证书可以挂靠?	项目管理发展史
信息系统项目管理师挂靠一年多少钱？	信息系统项目管理师考试费用及收费依据（汇总）

帐号		自动登录	找回密码
密码			马上注册

[转帖]ASP编程常用的代码

浏览过的版块