Monthly: 六月 2013

一个漂亮的点击计数器

ggp asp 2013-06-29 601 次浏览
<%@ Language=VBScript %> <html> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.ConnectionString = "Data Source=" & Server.MapPath ("db1.mdb") Conn.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT * from table1", Conn, 1,3 Rs.addnew rs.movelast Rs("hits") =hits Rs.update %> <body bgcolor="#FFFFFF"> <center> ???<table width=97 height="44"> ????<tr> ??????<td background="coun 阅读全文...

产生随机密码的ASP函数

ggp asp 2013-06-29 524 次浏览
<% response.write makePassword(16) function makePassword(byVal maxLen) Dim strNewPass Dim whatsNext, upper, lower, intCounter Randomize For intCounter = 1 To maxLen ????whatsNext = Int((1 - 0 + 1) * Rnd + 0) If whatsNext = 0 Then character ????????upper = 90 ????????lower = 65 Else ????????upper = 57 ????????lower = 48 End If ????????strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower)) Next ????????makePassword = strNewPass end function %>尿道口尖锐湿疣,浙江尖锐湿 阅读全文...

asp在线用表单建立文件夹

ggp asp 2013-06-29 481 次浏览
HTML格式的Form表单文件FOLDER.htm的内容: <form name="form1" method="post" action="folder-action.asp"> Create a folder <input type="text" name="name"> <input type="submit" name="Submit" value="Submit"> </form> ASP文件FOLDER-ACTION.ASP <%@ LANGUAGE = "VBScript" %> <% Dim Name Name = Request("Name") set fs=createobject("scripting.filesystemobject") MyFolder=server.mappath(""&name&"") If NOT fs.folderexists(MyFolder) then fs.createfolder(MyFolder) End If If 阅读全文...

用ASPMail组件实现E_mail自动反馈

ggp asp 2013-06-29 440 次浏览
网页上E_mail自动反馈的asp程序示例如下: <% Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1")?? recipient="接收者email" sender="发送者email" subject="email的主题" message="email的内容" mailserver = "mail.drcnet.com.cn"; result = mailer.SendMail(mailserver, recipient, sender, subject, message) %>尖锐湿疣医院,北京性病医院,女性尖锐湿疣初期图, 阅读全文...

WEB页面简单进度记时器

ggp asp 2013-06-29 531 次浏览
<html> <head> <title> TimeBar Version 1.0 </title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta http-equiv="Refresh" content="20;url="> <style> td {font-size: 10.5pt; color: 147e19; font-family: Courier New;} </style> </head> <body bgcolor="#FFFFFF"> <br><br><br><br> <center> <table width=500 border=0> <tr><td> <br> <p align=center>TimeBar V1.0 by 阅读全文...

利用CDONTS发送邮件的ASP函数

ggp asp 2013-06-29 578 次浏览
<% Last Updated By Recon On 05/14/2001 On Error Resume Next 利用CDONTS组件在Win2k上发送邮件 发送普通邮件 SendMail "admin@ny.com", "iamchn@263.net", "Normal Mail!", "Please check the attatchment!", 2, 0, "C:Love.txt" 发送HTML邮件 Dim m_fso, m_tf Dim m_strHTML Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT") Set m_tf = m_fso.OpenTextFile("C:Mail.htm", 1) m_strHTML = m_tf.ReadAll Write m_strHTML Set m_tf = Nothing Set m_fso = Nothing SendMail "admin@ny.com", "iamchn@263.net", 阅读全文...

跟我学做最强功能的asp网站统计

ggp asp 2013-06-29 589 次浏览
一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例 我做了一个网站,www.zydn.net??当然啦,跟大家一样,也摆了个计数器在上面,每天看计数器都在不断的翻,心里很高兴,不过后来我又想,到底是谁看了我的网站啊?是新朋友还是老朋友啊?也不知他们来了多少次,我还想给他们都编上号,于是我申请了 免费统计,不过一连换了N个都不满意,唉,看来,只有自己动手才能丰衣足食了,说干就干,水平臭臭,还望高手笑话之于,不访指教。 我以access(小型网站之最爱)库为例子,其实用sql server(WINDOWS平台上强大的数据库平台)库 阅读全文...

用ASP技术编制隐藏用户密码程序

ggp asp 2013-06-29 521 次浏览
Internet(或Intranet)上带权限的查询,只有“合法用户”才能进入。这种机制是通过Web程序实现的。在访问过程中,如果程序设计得不好,就会将用户口令暴露在地址栏里(举一个例子:http://www.mmm.nnn/default.asp ?superusername=john&passwd=john123,用户名john和密码john123全露出来了),这样系统就无保密和安全性可言了。怎样避免这种现象的发生呢?本文将用一段ASP(Active Server pages)程序,来说明隐藏用户名和口令的方法。 ????ASP是Microsoft公司处理动态网络数据库的最新技术之一,它可由Windows NT 平台上的Web Server I 阅读全文...

ASP实现播放Flash的例子

ggp asp 2013-06-29 484 次浏览
<!-- #include file = "DB.fun" --> <% mingcheng=request("mingcheng") sec=Request("score") session("mingcheng")=mingcheng session("sec")=sec If session("ID")="" then ???response.redirect "qzhuce.asp" ???response.end End If dim time1 sec=Request("score") Set conn = GetMdbConnection("score.mdb") time1=Cstr(date) SQL2="select * from mmd where nickname="&session("id")&"" Set zy2 = Conn.Execute( SQL2 ) old = zy2("mgdf") response.write old zy2.close if cint(old) <= cint(sec) and cint 阅读全文...

取得服务器上用户组列表的脚本之asp版

ggp asp 2013-06-29 453 次浏览
将下文存为任一asp文件如lg.asp即可. 正文从***下开始 ************************************************** <form method="POST"> ????请输入域名:<input type="text" name="DomainName" size="20"> ????<input type="submit" value="提交" name="B1"> ????<input type="reset" value="全部重写" name="B2"> </form> <% if isempty(request("domainname")) or trim(request("domainname"))="" then ???response.end end if DomainString =request("domainname") on error resume next Set DomainObj = 阅读全文...
回顶部