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

翔羽 · 发表于 2006-2-24 09:24:04

<% Dim Image Dim Width, Height Dim num Dim digtal Dim Length Dim sort Length = 4 '自定计数器长度 Redim sort( Length ) num=cint(DeCryptString(request.querystring("sksid"))) digital = "" For I = 1 To Length -Len( num ) '补0 digital = digital & "0" Next For I = 1 To Len( num ) digital = digital & Mid( num, I, 1 ) Next For I = 1 To Len( digital ) sort(I) = Mid( digital, I, 1 ) Next Width = 8 * Len( digital ) '图像的宽度 Height = 10 '图像的高度，在本例中为固定值 Response.ContentType="image/x-xbitmap" hc=chr(13) & chr(10) Image = "#define counter_width " & Width & hc Image = Image & "#define counter_height " & Height & hc Image = Image & "static unsigned char counter_bits[]={" & hc For I = 1 To Height For J = 1 To Length Image = Image & a(sort(J),I) & "," Next Next Image = Left( Image, Len( Image ) - 1 ) '去掉最后一个逗号 Image = Image & "};" & hc %> <% Response.Write Image %> numimg.asp <% Dim a(10,10) a(0,1) = "0x3c" '数字0 a(0,2) = "0x66" a(0,3) = "0xc3" a(0,4) = "0xc3" a(0,5) = "0xc3" a(0,6) = "0xc3" a(0,7) = "0xc3" a(0,8) = "0xc3" a(0,9) = "0x66" a(0,10)= "0x3c" a(1,1) = "0x18" '数字1 a(1,2) = "0x1c" a(1,3) = "0x18" a(1,4) = "0x18" a(1,5) = "0x18" a(1,6) = "0x18" a(1,7) = "0x18" a(1,8) = "0x18" a(1,9) = "0x18" a(0,10)= "0x7e" a(2,1) = "0x3c" '数字2 a(2,2) = "0x66" a(2,3) = "0x60" a(2,4) = "0x60" a(2,5) = "0x30" a(2,6) = "0x18" a(2,7) = "0x0c" a(2,8) = "0x06" a(2,9) = "0x06" a(2,10)= "0x7e" a(3,1) = "0x3c" '数字3 a(3,2) = "0x66" a(3,3) = "0xc0" a(3,4) = "0x60" a(3,5) = "0x1c" a(3,6) = "0x60" a(3,7) = "0xc0" a(3,8) = "0xc0" a(3,9) = "0x66" a(3,10)= "0x38" a(4,1) = "0x38" '数字4 a(4,2) = "0x3c" a(4,3) = "0x36" a(4,4) = "0x33" a(4,5) = "0x33" a(4,6) = "0x33" a(4,7) = "0xff" a(4,8) = "0x30" a(4,9) = "0x30" a(4,10)= "0xfe" a(5,1) = "0xfe" '数字5 a(5,2) = "0xfe" a(5,3) = "0x06" a(5,4) = "0x06" a(5,5) = "0x3e" a(5,6) = "0x60" a(5,7) = "0xc0" a(5,8) = "0xc3" a(5,9) = "0x66" a(5,10)= "0x3c" a(6,1) = "0x60" '数字6 a(6,2) = "0x30" a(6,3) = "0x18" a(6,4) = "0x0c" a(6,5) = "0x3e" a(6,6) = "0x63" a(6,7) = "0xc3" a(6,8) = "0xc3" a(6,9) = "0x66" a(6,10) ="0x3c" a(7,1) = "0xff" '数字7 a(7,2) = "0xc0" a(7,3) = "0x60" a(7,4) = "0x30" a(7,5) = "0x18" a(7,6) = "0x18" a(7,7) = "0x18" a(7,8) = "0x18" a(7,9) = "0x18" a(7,10)= "0x18" a(8,1) = "0x3c" '数字8 a(8,2) = "0x66" a(8,3) = "0xc3" a(8,4) = "0x66" a(8,5) = "0x3c" a(8,6) = "0x66" a(8,7) = "0xc3" a(8,8) = "0xc3" a(8,9) = "0x66" a(8,10)= "0x3c" a(9,1) = "0x3c" '数字9 a(9,2) = "0x66" a(9,3) = "0xc3" a(9,4) = "0xc3" a(9,5) = "0x66" a(9,6) = "0x3c" a(9,7) = "0x18" a(9,8) = "0x0c" a(9,9) = "0x06" a(9,10)= "0x03" %>

翔羽 · 发表于 2006-2-24 09:24:20

分页代码例子<hr/> <%''本程序文件名为：Pages.asp%> <%''包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%>  <%''＊建立数据库连接，这里是Oracle8.05数据库 Set conn=Server.CreateObject("ADODB.Connection") conn.Open "

rovider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID

assword=YourPassword;" Set rs=Server.CreateObject("ADODB.Recordset") ''创建Recordset对象 rs.CursorLocation=adUseClient ''设定记录集指针属性 ''＊设定一页内的记录总数，可根据需要进行调整 rs.PageSize=10 ''＊设置查询语句 StrSQL="Select ID,姓名,住址,电话 from 通讯录 Order By ID" rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText %> <HTML> <HEAD> <title>分页示例</title> <script language=javascript> //点击"[第一页]"时响应： function PageFirst() { document.MyForm.CurrentPage.selectedIndex=0; document.MyForm.CurrentPage.onchange(); } //点击"[上一页]"时响应： function PagePrior() { document.MyForm.CurrentPage.selectedIndex--; document.MyForm.CurrentPage.onchange(); } //点击"[下一页]"时响应： function PageNext() { document.MyForm.CurrentPage.selectedIndex++; document.MyForm.CurrentPage.onchange(); } //点击"[最后一页]"时响应： function PageLast() { document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1; document.MyForm.CurrentPage.onchange(); } //选择"第？页"时响应： function PageCurrent() { //Pages.asp是本程序的文件名 document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1) document.MyForm.submit(); } </Script> </HEAD> <BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000""> <%IF rs.Eof THEN Response.Write("[数据库中没有记录！]") ELSE ''指定当前页码 If Request("CurrentPage")="" Then rs.AbsolutePage=1 Else rs.AbsolutePage=CLng(Request("CurrentPage")) End If ''创建表单MyForm,方法为Get Response.Write("<form method=Get name=MyForm>") Response.Write("") ''设置翻页超链接 if rs.PageCount=1 then Response.Write("[第一页] [上一页] [下一页] [最后一页] ") else if rs.AbsolutePage=1 then Response.Write("[第一页] [上一页] ") Response.Write("[<a href=javascript

ageNext()>下一页</a>] ") Response.Write("[<a href=javascript

ageLast()>最后一页</a>] ") else if rs.AbsolutePage=rs.PageCount then Response.Write("[<a href=javascript

ageFirst()>第一页</a>] ") Response.Write("[<a href=javascript

agePrior()>上一页</a>] ") Response.Write("[下一页] [最后一页] ") else Response.Write("[<a href=javascript

ageFirst()>第一页</a>] ") Response.Write("[<a href=javascript

agePrior()>上一页</a>] ") Response.Write("[<a href=javascript

ageNext()>下一页</a>] ") Response.Write("[<a href=javascript

ageLast()>最后一页</a>] ") end if end if end if ''创建下拉列表框，用于选择浏览页码 Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>") For i=1 to rs.PageCount if rs.AbsolutePage=i then Response.Write("<option selected>"&i&"</option>") ''当前页码 else Response.Write("<option>"&i&"</option>") end if Next Response.Write("</select>页/共"&rs.PageCount&"页共"&rs.RecordCount&"条记录") Response.Write("</form>") ''创建表格，用于显示 Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1") Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>") Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>") Set Columns=rs.Fields ''显示表头 For i=0 to Columns.Count-1 Response.Write("<td align=center width=200 height=13>") Response.Write(""&Columns(i).name&"</td>") Next Response.Write("</tr>") ''显示内容 For i=1 to rs.PageSize Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>") For j=0 to Columns.Count-1 Response.Write("<td>"&Columns(j)&"</td>") Next Response.Write("</tr>") rs.movenext if rs.EOF then exit for Next Response.Write("</table>") END IF %> </BODY> </HTML>

翔羽 · 发表于 2006-2-24 09:24:38

新闻生成的例子<hr/>====================================asptohtml1.asp <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head><body bgcolor="#FFFFFF" text="#000000"> <div align="center"> <form name="form1" method="post" action="asptohtml2.asp"> 标题： <input type="text" name="biaoti"> 正文： <textarea name="neirong"></textarea> <input type="submit" name="Submit" value="Submit"> </form> </div> </body> </html> =========================asptohtml2.asp <% biaoti=request("biaoti") neirong=request("neirong") set fileobj=server.createobject("scripting.filesystemobject") filepath=server.mappath("./")&"/"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&".html" response.write filepath set filewrite=fileobj.opentextfile(filepath,2,true) filewrite.write biaoti&" " filewrite.write neirong set fileobj=nothing %> 这样呢会在你的当前目录下生成一个根据日期及时分钟为文件名的.html文件，这样你需要做得就是把这个文件名，及文件的标题保存到一个表里，然后再输入这个表就可以了 如：表中的字段有id,biaoti,timee(分别为，文件的id编号，带连接的文件名，生成时间) 当然，你还可以再加上你需的字段，我这里只是举一个例子 在html文件生成了后，你需要向这个表中的biaoti填加一条记录（如：<a href=文件名>提交后的文件名</a>）最后你只要输出这个表的所有内容就行了

翔羽 · 发表于 2006-2-24 09:24:54

利用XMLHTTP 从其他页面获取数据<hr/>我们在编写ASP代码的时候，大家都知道可以通过post或者get获得form表单的数据，那么我们如何直接获得其他页面上的数据呢？这就要借助xmlhttp协议了。xmlhttp是xmldom技术的一部分。下面的代码就是一个很简单的例子，我们利用xmlhttp技术，把http://www.xxxx.com/站点首页的代码以xml的形式完全获取，并且在页面中输出。<% Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://www.codetoad.com/", False ' Pull the data from the web page xml.SendResponse.write "Here's the html we now have in our xml object" Response.write " " Response.Write "<xmp>" Response.Write xml.responseText Response.Write "</xmp>" Response.write " " Response.write " Now here's how the page looks: " Response.Write xml.responseTextSet xml = Nothing %> 下面是另一个实例<% dim objHTTP , objXML , objXSL set objHTTP = Server.CreateObject("Microsoft.XMLHTTP") objHTTP.open "GET", "http://p.moreover.com/cgi-local/page?c=Pop%20music%20reviews&o=xml", false objHTTP.send set objXML = objHTTP.responseXML set objXSL=Server.CreateObject("microsoft.xmldom") objXSL.async=falseobjXSL.load(Server.MapPath("style.xsl"))if (objXSL.parseError.errorCode = 0) then Response.Write(objXML.transformnode(objXSL)) else Response.Write "Error: " & objXSL.parseError.reason & " URL:" & objXSL.url end ifSet objHTTP = Nothing Set objXML = Nothing Set objXSL = Nothing %>style.xsl： <xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl"> <xsl:template match="/"><html> <head> <TITLE>moreover...</TITLE> </head> <body BGCOLOR="ffffff"> <DIV ALIGN="center"> <TABLE BGCOLOR="ffffff" BORDER="0" CELLPADDING="4" CELLSPACING="0" WIDTH="100%"><xsl:for-each select="moreovernews/article"> <TR VALIGN="middle"> <TD ALIGN="left" BGCOLOR="ffffff"> <xsl:attribute name="HREF"> <xsl:value-of select="url"/> </xsl:attribute> <xsl:attribute name="TARGET"> _blank </xsl:attribute> <xsl:value-of select="headline_text"/> <xsl:attribute name="HREF"> <xsl:value-of select="document_url"/> </xsl:attribute> <xsl:attribute name="TARGET"> _blank </xsl:attribute> <xsl:value-of select="source"/> <xsl:attribute name="HREF"> <xsl:value-of select="access_registration"/> </xsl:attribute> <xsl:attribute name="TARGET"> _blank </xsl:attribute> <xsl:value-of select="access_status"/> <xsl:value-of select="harvest_time"/> GMT </TD> </TR> </xsl:for-each> </TABLE> </DIV> </body> </html> </xsl:template> </xsl:stylesheet>

翔羽 · 发表于 2006-2-24 09:25:10

防止从外部提交数据的方法<hr/>第一种做法，屏蔽特殊字符和关键字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 <hr/>第二种可以防止客户从本地提交到网站上<% 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 " <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 %> <hr/>第三。这样可以防止在输入框上打上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

翔羽 · 发表于 2006-2-24 09:25:27

ASP用JMail、CDO发送邮件 <hr/>　　前一段时间有发过一个简单的JMAIL邮件发邮件的代码，今天就把这个代码做一个具体的注解，并增加了另外两个格式的代码，并举几个简单的例子： 　　首先是jmail.smtpmail的核心代码：<% Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象 jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE jmail.logging = true '启用使用日志 jmail.Charset = "GB2312" '邮件文字的代码为简体中文 jmail.ContentType = "text/html" '邮件的格式为HTML的 jmail.ServerAddress = "Server Address" '发送邮件的服务器 jmail.AddRecipient Email '邮件的收件人 jmail.SenderName = "SenderName" '邮件发送者的姓名 jmail.Sender = "Email Address" '邮件发送者的邮件地址 jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Subject = "Mail Subject" '邮件的标题 jmail.Body = "Mail Body" '邮件的内容 jmail.AddRecipientBCC Email '密件收件人的地址 jmail.AddRecipientCC Email '邮件抄送者的地址 jmail.Execute() '执行邮件发送 jmail.Close '关闭邮件对象 %>　　w3 Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来的单一对象Jmail.smtpmail发送邮件，有些方法需要身份验证的(如163、yahoo等)，可以用下面的方法解决： <% Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象 jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j mail.logging = true '启用邮件日志 jmail.Charset = "GB2312" '邮件的文字编码为国标 jmail.ContentType = "text/html" '邮件的格式为HTML格式 jmail.AddRecipient Email '邮件收件人的地址 jmail.From = "Email From for Sender" '发件人的E-MAIL地址 jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名 jmail.MailServerPassword = "

assword of Email" '登录邮件服务器所需的密码 jmail.Subject = "Mail Subject" '邮件的标题 jmail.Body = "Mail Body" '邮件的内容 jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Send("Server Address") '执行邮件发送（通过邮件服务器地址） jmail.Close() '关闭对象 %>　　再讲一下微软自带的CDONTS组件的发信的方法： <% Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立邮件对象 cdomail.Subject = "Mail Subject" '邮件标题 cdomail.From = "Sender's Mail" '发件人的地址 cdomail.To = "Email will from" '收件人的地址 cdomail.Body = "Mail Body" '邮件的内容 cdomail.Send '执行发送 %>　　这种方法发送邮件是最简单的，同时也带来一定的问题，就是很少有服务器会开这项服务！ 　　我们写程序，一般情况下都是说要代码模块化，这样方便维护，同时也方便移植。因此，我在这里将这个发邮件的写成一个子程，在调用的时候可以直接调用（当然，如果你高兴写成函数的话也是可以的，这个主要是看个人兴趣）：<% '参数说明 'Subject : 邮件标题 'MailAddress : 发件服务器的地址,如smtp.163.com 'Email : 收件人邮件地址 'Sender : 发件人姓名 'Content : 邮件内容 'Fromer : 发件人的邮件地址Sub SendAction(subject, mailaddress, email, sender, content, fromer) Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象 jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE jmail.logging = true '启用使用日志 jmail.Charset = "GB2312" '邮件文字的代码为简体中文 jmail.ContentType = "text/html" '邮件的格式为HTML的 jmail.ServerAddress = mailaddress '发送邮件的服务器 jmail.AddRecipient Email '邮件的收件人 jmail.SenderName = sender '邮件发送者的姓名 jmail.Sender = fromer '邮件发送者的邮件地址 jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Subject = subject '邮件的标题 jmail.Body = content '邮件的内容 '由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复 'jmail.AddRecipientBCC Email '密件收件人的地址 'jmail.AddRecipientCC Email '邮件抄送者的地址 jmail.Execute() '执行邮件发送 jmail.Close '关闭邮件对象 End Sub '调用此Sub的例子 Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = "这是一封用JMAIL发送的测试邮件" strContent = "JMail组件发送测试成功！" strEmail = "runbing@eyou.com" strFromer = "runbing@eyou.com" strMailAddress = "mail.ubbcn.com"

翔羽 · 发表于 2006-2-24 09:25:43

IP限制函数<hr/>大家如果还有好的建议算法，就联系我！！：）“****************************** “Function CheckIp(cInput_Ip,cBound_Ip) “Created by qqdao, qqdao@263.net 2001/11/28 “说明：首先需要根据;号循环，然后判断是否含有"-"，如果有则进行拆分处理，最后判断是否在范围内 “参数： cInput_Ip,代检查的ip “ cBound_Ip,给定的范围格式为,单个ip,和范围ip，范围ip最后使用”-“分割，如果是“*”则必须放到最后一位 “ 每个范围后添加":ALLOW"表示允许登陆，添加":REFUSE"表示拒绝登陆。多个范围用”;“隔开 “ 例如192.168.1*.*:ALLOW;192.168.1.1:ALLOW;192.168.1.1-10:REFUSE" “返回值: true/false “更新：2001/12/05 支持ALLOW,REFUSE支持’*‘,不想对？支持，因为和*差不多 “****************************** function CheckIp(cInput_Ip,cBound_Ip) dim cSingle_Ip,cTemp_IP,cStart_IP,cEnd_Ip CheckIp = false cSingle_Ip=split(cBound_Ip,";")for i=0 to ubound(cSingle_Ip) if Instr(cSingle_Ip(i),"REFUSE") <> 0 then “就是拒绝了 cTemp_IP = left(cSingle_Ip(i),instr(cSingle_Ip(i),":")-1)if Instr(cTemp_IP,"*") <> 0 then “是宽范围 cStart_IP = left(cTemp_IP,instr(cTemp_IP,"*")-1) if left(cInput_Ip,len(cStart_IP))=cStart_IP then CheckIp = false exit function end if end ifif Instr(cTemp_IP,"-") = 0 then cStart_IP = cTemp_IP cEnd_Ip = cTemp_IP else cStart_IP = left(cTemp_IP,instr(cTemp_IP,"-")-1) cEnd_Ip = left(cStart_IP,InStrRev(cStart_IP,".")-1)+"."+mid(cTemp_IP,instr(cTemp_IP,"-")+1) end ifif Ip2Str(cInput_Ip)>=Ip2Str(cStart_IP) and Ip2Str(cInput_Ip)<=Ip2Str(cEnd_Ip) then CheckIp = false exit function end ifelseif Instr(cSingle_Ip(i),"ALLOW") <> 0 then “允许cTemp_IP = left(cSingle_Ip(i),instr(cSingle_Ip(i),":")-1)if Instr(cTemp_IP,"*") <> 0 then “是宽范围 cStart_IP = left(cTemp_IP,instr(cTemp_IP,"*")-1) if left(cInput_Ip,len(cStart_IP))=cStart_IP then CheckIp = true end if end ifif Instr(cTemp_IP,"-") = 0 then cStart_IP = cTemp_IP cEnd_Ip = cTemp_IP else cStart_IP = left(cTemp_IP,instr(cTemp_IP,"-")-1) cEnd_Ip = left(cStart_IP,InStrRev(cStart_IP,".")-1)+"."+mid(cTemp_IP,instr(cTemp_IP,"-")+1) end ifif Ip2Str(cInput_Ip)>=Ip2Str(cStart_IP) and Ip2Str(cInput_Ip)<=Ip2Str(cEnd_Ip) then CheckIp =true else CheckIp =false end if end if nextend function “****************************** “Function Ip2Str(cIp) “Created by qqdao, qqdao@263.net 2001/11/28 “参考动网ip算法 “参数：cIp ip地址 “返回值: 转换后数值 “****************************** function Ip2Str(cIp) Dim str1,str2,str3,str4 Dim cIp_Temp if cIp="127.0.0.1" then cIp="192.168.0.1" str1=left(cIp,instr(cIp,".")-1) cIp_Temp=mid(cIp,instr(cIp,".")+1) str2=left(cIp_Temp,instr(cIp_Temp,".")-1) cIp_Temp=mid(cIp_Temp,instr(cIp_Temp,".")+1) str3=left(cIp_Temp,instr(cIp_Temp,".")-1) str4=mid(cIp_Temp,instr(cIp_Temp,".")+1)if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 thenelse Ip2Str=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1 end ifend function

翔羽 · 发表于 2006-2-24 09:25:59

IP地址分段计算<hr/><script language="JScript" Runat="Server"> function IPDeCode(EIP){ var Ip1,Ip2,Ip3,Ip4; Ip1 = moveByteR(EIP & 0xff000000,3); Ip2 = moveByteR(EIP & 0x00ff0000,2); Ip3 = moveByteR(EIP & 0x0000ff00,1); Ip4 = EIP & 0x000000ff; return Ip1 + "." + Ip2 + "." + Ip3 + "." + Ip4; } function moveByteL(num,bytenum){ return num <<= (bytenum*8) }function moveByteR(num,bytenum){ return num >>>= (bytenum*8) }</script> 在vbs中没有位操作，这样在一个页面中用到了js和vbs，并不好，如果用vbs也可以，不过罗嗦了一些，而且有一点注意，如果在vbs中split("202.102.29.6",".")，会得到202，102，29三个数，得不到最后一个6，所以需要将ip换成split("202.102.29.6" & ".",".") 我用vbs做的，由于没有位操作，所以做得比较麻烦 <% function ip2int(ipstr) dim iptemp,max iptemp = split(ipstr&".",".") max = ubound(iptemp) if max <> 4 then exit function end ifdim a,b,i a = "&H" for i = 0 to 3 b = Hex(iptemp(i)) if len(b) = 1 then b = "0"&b end if a = a&b next ip2int = CLng(a) end functionfunction int2ip(ip) dim iptemp,a,ipstr,i,length iptemp = Hex(ip) length = 8 - len(iptemp) for i = 1 to length iptemp = "0" & iptemp next a = left(iptemp,2) a = "&H" & a i = CInt(a) a = CStr(i) ipstr = a & "." a = mid(iptemp,3,2) a = "&H" & a i = CInt(a) a = CStr(i) ipstr = ipstr & a & "." a = mid(iptemp,5,2) a = "&H" & a i = CInt(a) a = CStr(i) ipstr = ipstr & a & "." a = right(iptemp,2) a = "&H" & a i = CInt(a) a = CStr(i) ipstr = ipstr & a int2ip = ipstr end functiondim testIP,testInt testIP="202.102.29.6" testInt = ip2int(testIP) response.write testIP & " will be encoded to " & testInt & " " response.write testIP & " will be dencoded to " & int2ip(testInt) & " " %>

翔羽 · 发表于 2006-2-24 09:26:14

身份证验证代码函数<hr/>Function CheckCardId(e)arrVerifyCode = Split("1,0,x,9,8,7,6,5,4,3,2", ",")Wi = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ",")Checker = Split("1,9,8,7,6,5,4,3,2,1,1", ",") If Len(e) < 15 Or Len(e) = 16 Or Len(e) = 17 Or Len(e) > 18 Then CheckCardId= "身份证号共有 15 码或18位" CheckCardId = False Exit Function End If Dim Ai If Len(e) = 18 Then Ai = Mid(e, 1, 17) ElseIf Len(e) = 15 Then Ai = e Ai = Left(Ai, 6) & "19" & Mid(Ai, 7, 9) End If If Not IsNumeric(Ai) Then CheckCardId= "身份证除最后一位外，必须为数字！" Exit Function End If Dim strYear, strMonth, strDay strYear = CInt(Mid(Ai, 7, 4)) strMonth = CInt(Mid(Ai, 11, 2)) strDay = CInt(Mid(Ai, 13, 2))BirthDay = Trim(strYear) + "-" + Trim(strMonth) + "-" + Trim(strDay) If IsDate(BirthDay) Then If DateDiff("yyyy",Now,BirthDay)<-140 or cdate(BirthDay)>date() Then CheckCardId= "身份证输入错误！"Exit Function End If If strMonth > 12 Or strDay > 31 Then CheckCardId= "身份证输入错误！"Exit Function End If Else CheckCardId= "身份证输入错误！"Exit Function End If Dim i, TotalmulAiWi For i = 0 To 16 TotalmulAiWi = TotalmulAiWi + CInt(Mid(Ai, i + 1, 1)) * Wi(i) Next Dim modValue modValue = TotalmulAiWi Mod 11 Dim strVerifyCode strVerifyCode = arrVerifyCode(modValue) Ai = Ai & strVerifyCode CheckCardId = Ai If Len(e) = 18 And e <> Ai Then CheckCardId= "身份证号码输入错误！" Exit Function End If End Functionresponse.write CheckCardId("528337194801020025") '''''''''这个不知是谁的身份证,我一试就出来了~~~~~~~~~哈哈'''''这个如果返回的是输入的身份证,则表明正确,否则会提示出错...

翔羽 · 发表于 2006-2-24 09:26:28

Cookie读写例子<hr/>writecookie.asp <%@ Language=VBScript　 %> <%Response.Buffer=true%> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <TITLE>写Cookie的示例</TITLE> </HEAD> <BODY> <% Response.Write "写Cookie： " Response.Cookies("Cookie1")("key1") = "KeyValue1" Response.Cookies("Cookie1")("key1") = "KeyValue2" Response.Cookies("Cookie1").Expires = "July 31, 1999" Response.Cookies("Cookie2")("key2") = "KeyValue1" Response.Cookies("Cookie2")("key2") = "KeyValue2" Response.Cookies("Cookie2").Expires = "July 31, 1999" 'Response.Cookies("Cookie2").Path = "/testasp/" '这个在使用的时候要注意 '是指定在那个目录的文件才可以读取这个cookie的内容。 '在本例子中。只有在testasp这目录下的文件才可以读取 'Cookie2的内容。 %> </BODY> </HTML> ------------------------------------------------------- readwrite.asp <%@ Language=VBScript %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <TITLE>读Cookie的示例</TITLE> </HEAD> <BODY> <%Response.Write "读取Cookie： " dim cookie,key 　 　for each cookie in Request.Cookies if Request.Cookies(cookie).haskeys then Response.Write " Cookie 名字："&cookie&" -------------- " for each key in Request.Cookies(cookie) Response.Write "Key 名字："&key&"，值："&Request.Cookies(cookie)(ke y)&" " next else Response.Write "Cookie 名字："&Request.Cookies(cookie)&" " end if 　 　next 　 %> </BODY> </HTML>

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



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