ASP
关注
分享
扫一扫
iuhxq
这个作者很懒，什么都没留下…
展开
-
ASP+ACCESS实现的无限级目录树
演示：http://asp2004.net/temp/treemenu/下载地址：http://asp2004.net/temp/treemenu.rar关键代码：set conn=server.createobject("ADODB.CONNECTION")connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={M原创 2004-06-02 19:34:00 · 2326 阅读 · 0 评论 -
用程序(asp,asp.net等任何可以访问数据库的语言)来自动建立FTP帐号（serv-u的odbc设置）
详情请参考：http://asp2004.net/dvbbs/dispbbs.asp?boardid=6&id=287数据库脚本：/****** Object: Database host Script Date: 2004-12-24 13:16:31 ******/IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE nam原创 2004-12-24 13:35:00 · 2956 阅读 · 1 评论 -
ASP中取得图片宽度和高度的类（无组件）
Class ImgWHInfo 获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject("ADODB.Stream") ASO.Mode=3 ASO.Type=1 ASO.Open End原创 2005-01-17 08:38:00 · 1801 阅读 · 1 评论 -
浅谈web服务器安全
这里说的漏洞都是管理员配置错误导致的漏洞。1、目录的权限要设置合理。否则会导致web用户可以浏览任意目录。工具：web资源管理器 http://blog.youkuaiyun.com/iuhxq/archive/2004/12/11/212987.aspx用它可以查看任何目录，只要有权限。如果看到conn.asp或者web.config。。。。。。。呵呵。。。轻则数据库被下载（access）重则。。。看你还有原创 2005-01-18 09:26:00 · 2458 阅读 · 0 评论 -
javascript里的类思想
function MyFile(filename, filesize, type, datelastaccessed){ this.filename = filename; this.filesize = filesize; this.type = type; this.datelastaccessed = datelastaccessed;}function ArrayFile(){ this.原创 2005-01-24 21:11:00 · 1690 阅读 · 2 评论 -
超酷导航菜单（转）
body { background:#799AE1; margin:0px; font:normal 12px 宋体; }table { border:0px; }td { font:normal 12px 宋体; }img { vertical-align:bottom; border:0px; }a { font:normal 12px 宋体; color:#215DC6; text原创 2005-01-17 08:41:00 · 2468 阅读 · 5 评论 -
mp3的自动连续播放以及探测是否可以播放、并对可以播放的结果进行保存
var state;var playlist;var pplay=0;var flag;var find=0;playlist = new Array();var mp3name=老鼠爱大米;playlist.push(http://202.206.96.204/homepage/homepageUsers/shipin/sucai/老鼠爱大米.mp3);playlist.pu原创 2005-01-28 11:50:00 · 4144 阅读 · 2 评论 -
web文件管理器的后续开发。。。
今天看了一下ccopus的DM45，做的很不错，在这之前我也想做一个了，做一个跟windows资源管理器非常类似的程序。看到dm45以后觉得自己还是放弃吧，WEB方式的文件管理无论如何都是在权限允许内操作，而且大家实现的也都差不多，无非是在外观上，易操作上做文章，文件管理本来作用也不是很大，如果是多用户的权限比较难控制，既然别人做了，我想还是不要重复劳动的好，况且也不见得能做的好。下面的代码贴出来原创 2005-01-28 12:11:00 · 2881 阅读 · 3 评论 -
use xmlhttp's getResponseHeader and setRequestHeader method
use xmlhttps getResponseHeader and setRequestHeader methodDim logxml, idpw, postxml, info, cookieidpw="id=abc&pw=pass"Set logxml = Server.CreateObject("Microsoft.XMLHTTP")logxml.Open "POST", "http://原创 2005-01-29 14:03:00 · 8225 阅读 · 5 评论 -
无组件生成BMP验证码（转）
Call Com_CreatValidCode("ValidCode")Sub Com_CreatValidCode(pSN)Author: LayenQQ: 84815733E-mail: support@ssaw.net 禁止缓存Response.Expires = -9999 Response.AddHeader "Pragma","no-cache"Response.A原创 2005-01-23 12:23:00 · 1843 阅读 · 0 评论 -
用过的一个工具，收藏一下
void CtestDlg::OnBnClickedOk(){ // TODO: 在此添加控件通知处理程序代码 _ConnectionPtr m_pConnection; try { m_pConnection.CreateInstance(__uuidof(Connection)); CString conn; conn.Format("Provider=Microsoft.Jet.O原创 2005-01-26 15:22:00 · 3789 阅读 · 0 评论 -
用程序来自动建立FTP帐号（serv-u的odbc设置）
步骤：1、建立数据库（可以用任何数据库SQL SERVER，ACCESS均可）2、建立DNS3、安装Serv-U4、建立域5、完成了。呵呵~！serv-u build 6.0.0.1版本 ★ Serv-U FTP Server 6.0.0.1 final非常好的FTP服务器软件，它设置简单，功能强大，性能稳定。你现在就可以建立你自己的FTP服务器了。汉化说明：1、请先原创 2005-01-31 08:54:00 · 7709 阅读 · 5 评论 -
DataGrid自定义分页存储过程
CREATE proc page--@t int output,--------------------------------------------------------------------------------------------@RecordCount int output,@QueryStr nvarchar(100)=table1,--表名、视图名、查询语句@PageS原创 2005-06-30 17:49:00 · 2096 阅读 · 0 评论 -
一些非常好看的网页元素
http://community.youkuaiyun.com/Expert/TopicView1.asp?id=3889537原创 2005-04-01 08:31:00 · 2601 阅读 · 1 评论 -
asp打包类
On Error Resume NextDim rSet r = New Rarr.Add Server.MapPath("a.gIf")r.Add Server.MapPath("a.txt")r.Add Server.MapPath("test")r.Add Server.MapPath("file.asp")r.packname = Server.MapPath("xxx.dat")r.Pa原创 2005-05-29 19:49:00 · 2392 阅读 · 3 评论 -
FLASH连接数据库
System.useCodepage = true;_global.arrTitle = new Array(5);_global.arrImage = new Array(5);_global.arrUrl = new Array(5);function loadxml(){ myxml = new XML(); myxml.ignoreWhite = true; my原创 2006-01-23 10:41:00 · 4521 阅读 · 3 评论 -
用ASP编程控制在IIS建立Web站点(转)
用ASP编程控制在IIS建立Web站点 ******************************************************* 创建一个WebServer 必须参数：WRoot,为创建站点的物理目录；WComment为站点说明；WPort为站点端口；ServerRun为是否自动运行 当创建成功时返回1，失败时提示退出并返回0，当创建站点成功但启动原创 2004-12-20 08:19:00 · 1530 阅读 · 1 评论 -
Web资源管理器(保存为任意ASP文件即可)
WEB文件管理器2.0版 http://asp2004.net>a { font-size: 9pt; color: #3300CC; text-decoration: none;}body { font-size: 9pt; margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; line-height:原创 2004-12-11 16:21:00 · 6092 阅读 · 9 评论 -
FSO操作示例（给初学者）
截图：代码如下：dim Data_5xsoftClass upload_5xsoftdim objForm,objFile,VersionPublic function Form(strForm) strForm=lcase(strForm) if not objForm.exists(strForm) then Form="" else Form=objForm(st原创 2004-06-03 16:59:00 · 3854 阅读 · 4 评论 -
ASP编程中树型结构的提交
演示：http://asp2004.net/temp/treemenu/favorite.asp%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>http://www.w3.org/TR/html4/loose.dtd">网络书签action=request.QueryString("action")if action="save" thendim a(10)a(0)原创 2004-08-09 08:26:00 · 1820 阅读 · 0 评论 -
SQL注入研究
请勿用于非法用途，本代码只是为了让广大ASP爱好者明白原理，防范于未然。Function bytes2BSTR(vIn)dim strReturndim i,ThisCharCode,NextCharCodestrReturn = ""For i = 1 To LenB(vIn)ThisCharCode = AscB(MidB(vIn,i,1))If ThisCharCode strReturn原创 2004-09-08 08:42:00 · 1983 阅读 · 4 评论 -
ASP在线升级程序
文件名：updata.asp远程地址const url="http://localhost/test/"action=request("action")if action="updata" then download(url&"config.txt") download(url&"pack.jpg") response.Write("下载成功安装")elseif action="insta原创 2004-09-29 10:02:00 · 4955 阅读 · 8 评论 -
浙江移动MISC1.6平台的Provision接口（短信定制关系同步接口）
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS)Function strUnicodeLen(asContents)计算unicode字符串的A原创 2004-09-08 08:11:00 · 2747 阅读 · 5 评论 -
浙江移动MISC1.6平台反向取消接口（取消短信定制关系）
Function PostXmlAndGetResponse(PostToUrl,XmlBody) set xhttp = createObject("Microsoft.XMLHTTP") xhttp.open "POST", PostToUrl, False xhttp.send XmlBody PostXmlAndGetResponse= xhttp.responseText set xht原创 2004-09-08 08:14:00 · 2211 阅读 · 0 评论 -
XMLHTTP实现数据的异步调用
演示：http://asp2004.net/temp/treemenu/async.asp源代码下载：http://asp2004.net/dvbbs/Dispbbs.asp?boardid=4&ID=89&replyID=375&skin=1%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>http://www.w3.org/TR/html4/loose.dtd">ht原创 2004-09-08 08:24:00 · 1920 阅读 · 2 评论 -
ASP中生成静态页面技术
演示：http://asp2004.net/temp/treemenu/menu.asp源代码下载：http://asp2004.net/temp/treemenu.rar!--#include file="conn.asp"-->%Dim StrFunction menu(id) Set rs = server.CreateObject("adodb.recordset") sq原创 2004-09-08 08:26:00 · 3163 阅读 · 7 评论 -
无刷新聊天室(短信陪聊程序)
主页面index.asp:%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>http://www.w3.org/TR/html4/loose.dtd">聊天室var t_room,t_log,t_user;var phone,srcphone,province,content;var room,log,user,myroomid=0,pid;log = Array原创 2004-09-24 20:16:00 · 5838 阅读 · 6 评论 -
把文章内容中涉及到的图片自动保存到本地服务器
函数功能：把文章内容中涉及到的图片自动保存到本地服务器。（注意：请先在目录下创建tempfile目录，用来保存临时图片）作者：小灰QQ:103895主页:http://asp2004.net2004.9.13转载或使用请不要删除上面这些信息。谢谢！const savepath="tempfile/"function myreplace(str)newstr=strset obj原创 2004-09-13 12:02:00 · 2883 阅读 · 3 评论 -
代码收藏专用贴(请勿评论)
音乐电影function ok(objs){if(objs.options[objs.selectedIndex].text=="音乐")b.outerHTML="音乐1音乐2"if(objs.options[objs.selectedIndex].text=="电影")b.outerHTML="电影1电影2"}ok(a)原创 2004-10-11 09:59:00 · 3339 阅读 · 16 评论 -
一个非常简洁的验证码程序（转载）
Response.Buffer = TrueWith Response.Expires = -1.AddHeader "Pragma","no-cache".AddHeader "cache-ctrol","no-cache"End WithDim a(10,10)a(0,1) = "0x3c" 数字0a(0,2) = "0x66"a(0,3) = "0xc3"a(0,4) = "0xc3"原创 2004-10-26 11:40:00 · 1633 阅读 · 0 评论 -
ASP程序中同一个用户不允许同时登陆两次
登陆页login.asp:if request.Form.count>0 then session("username")=request("username")application(session("username"))=session.SessionIDresponse.Redirect("index.asp")end if%>其他需要认证的页面index.asp:if applicati原创 2004-11-05 10:50:00 · 2319 阅读 · 8 评论 -
XMLHTTP抓取远程数据的后期处理
作者信息:昵称:小灰QQ:103895http://asp2004.nethttp://blog.youkuaiyun.com/iuhxqhehe = Hello("http://mmsg.qq.com/cgi-bin/gddylist?Type=13&Sort=1&Page=3", "", "", ".*((.*))[./n]*", "$2")response.Write heheFu原创 2004-11-11 15:33:00 · 2889 阅读 · 0 评论 -
vbscript和javascript之间的函数的调用
server1=cstr(request.servervariables("http_referer"))server2=cstr(request.servervariables("server_name"))if mid(server1,8,len(server2)) response.end()end ifkeyword=vb_unescape(request("keyword"))keywo原创 2004-12-06 09:09:00 · 3169 阅读 · 0 评论