2004年09月_iuhxq

12月 11月 10月 09月 08月 07月 06月

原创 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 4910 8

原创用存储过程写的聊天室程序

/****** Object: Database sms Script Date: 2005-2-25 12:35:12 ******/IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = Nsms) DROP DATABASE [sms]GOCREATE DATABASE [sms] ON (NAME

2004-09-27 08:26:00 5555 12

原创无刷新聊天室(短信陪聊程序)

主页面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 5807 6

原创把文章内容中涉及到的图片自动保存到本地服务器

函数功能：把文章内容中涉及到的图片自动保存到本地服务器。（注意：请先在目录下创建tempfile目录，用来保存临时图片）作者：小灰QQ:103895主页:http://asp2004.net2004.9.13转载或使用请不要删除上面这些信息。谢谢！const savepath="tempfile/"function myreplace(str)newstr=strset obj

2004-09-13 12:02:00 2864 3

原创 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 1950 4

原创 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 3149 7

演示：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 1888 2

原创浙江移动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 2195

原创浙江移动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 2729 5