很多网站都用会员注册功能,注册成功后需要邮箱激活效果,今天我们就来做这种效果吧. % Dim username,password Dim repassword,answer Dim Rs, SQL If Trim(Request(username)) = Or Trim(Request(pass)) = Or Trim(Reque...

三种禁用FileSystemObject组件的方法 2002-6-4动网先锋 众所周知，FileSystemObject组件的强大功能及破坏性是它屡屡被免费主页 提供商(那些支持ASP)的禁用的原因，我整理了一下，本来只找到两...

用ASP实现搜索引擎的功能是一件很方便的事，可是，如何实现类似3721的智能搜索呢？比如，当在搜索条件框内输入中国人民时，自动从中提取中国、人民等关键字并在数据库内进行搜索...

每次在操作数据库的时候最烦的就是根据表单提交的内容写sql语句，特别是字段比较多的时候很麻烦，动不动就容易写错。所以我就写了下面的生成sql语句的函数，用了用觉得还可以。...

asp+access用户登录代码,an.mdb数据库名 fd表名 y_username用户名字段，y_password密码字段. loginnew.asp网页 % dimusername,password username=request.form(username) password=request.form(password) setrs=server.createobject...

asp简单的用户登陆代码 % username=replace(request.form(username),','') password=replace(request.form(password),','') sql=select * from admin where(username='username' and password='password') set rs=server.createobject(adodb.records...

不好意思 小弟都是自学的 什么地方错了 请版主指正 别影响 新手... asp没有像.net的ViewState 所以就具体 分类的分页..等 这样说不清楚 举个例子。 比如: news.asp?classid=1showtype=imagepage=2 你要...

div id=demo style=overflow:hidden;height:310px;width:236px div id=demo1 table border=0 cellpadding=0 cellspacing=0 width=236 align=center % set rsLink=conn.execute(select * from FriendSite where IsOK=true order by id desc) if rsLink.eof the...

...

...

静态页面统计代码 % If Not IsNumeric(Request(id)) And Request(id) then Response.write错误的系统参数!ID必须是数字 Response.End End If Dim theurl,id,strStation id = CInt(Request.Querystring(id)) strStation = Left(Request.Se...

今天一朋友给我一段代码，说使用request.querystrin得不到传过来的值，我们一起找到很长时间，终于给找到了，错误的原因是他将form中的method参数写成了get了，所以使用request.querystrin得不...

这是一段简单的 asp分页显示代码 并以asp 分页显示源代码的形式提供给大家，包手asp数字分页代码，asp的分页代码 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional...

asp字符截取函数,取字符函数 % '定义字符串判别函数 function strlen(str) dim p_len p_len=0 strlen=0 if trim(str) then p_len=len(trim(str)) for xx=1 to p_len if asc(mid(str,xx,1))0 then strlen=int(strlen) + 2 else strlen=int...

asp 无限级分类 代码 Response.Write select name=classType Response.Write option value=0做为一级分类/option Set Rsp=Conn.Execute(SELECT Classid,depth,ClassName FROM Zjc_ClassInfo ORDER BY ChannelId,Orders,RootId) If Not (Rsp.Eof...

asp判断多用户登录 ,怎样判断不让同一个用户名同时在多台机器上登陆一个系统 实现这个功能可有两种方式： 1。application 用application对象：如果做的是大型社区，可能要为每个登陆id生...

asp判断多用户登录,急,怎样判断不让同一个用户名同时在多台机器上登陆一个系统完成后在新建一个loginCONN.asp文件复制下面的代码保存用于连接数据库 % Dim CONN_TOL8 Dim Conn_T Dim mmdd mmdd=...

asp 给图片加水印代码 Set Jpeg1 = Server.CreateObject(Persits.Jpeg) Set Jpeg2 = Server.CreateObject(Persits.Jpeg) Jpeg1.Open Server.MapPath(1.jpg) Jpeg2.Open Server.MapPath(2.jpg) iWidth=Jpeg1.OriginalWidth iHeight=Jpeg1.OriginalHeig...

简单的asp入门教程 % dimstrName,strEmail,strHomepage,strContent,strTable,strDsn strName=Request.Form(name) strEmail=Request.Form(email) strHomepage=request.form(homepage) strcontent=request.form(content) strtoname=request.form(toname)...

...