博文
ASP创建SQLServer数据库的两种方法(2006-04-26 09:04:00)
摘要：ASP创建SQL Server数据库的两种方法方法一：<%' ************ 使用ADODB.Connect对象创建 ************************Dim oConnDim sDatabaseNamesDatabaseName = "CodeCreateDB"Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open "Provider=SQLOLEDB;Data Source=(local);User ID=sa;Password=;"oConn.Execute "CREATE DATABASE " & sDatabaseName%>方法二：<%@ Language=VBScript %><%' ******************* 使用 SQLDMO Object 对象库 *******************Dim oSQLServerDim oDatabaseDim oDBFileDataDim oLogFileDim sDatabaseNameDim sDatapath'数据库名字sDatabaseName = "CodeCreateDBTest"'数据文件保存路径sDatapath = "D:\"'创建Sql Server对象并进行链接,(local)处为Server名字Set oSQLServer = Server.CreateObject("SQLDMO.SQLServer")' oSQLServer.LoginSecure = True ' 使用集成验证integrated security' oSQLServer.Connect "(local)"oSQLServer.Connect "(local)", "sa", "" ' 使用标准验证 standard security' 创建Database对象Set oDatabase = Server.CreateObject("SQLDMO.Database")oDatabase.Name = sDatabaseName' 创建db文件对象Set oDBFileData = Server.CreateObject("SQLDMO.DBFile")With oDBFile......
ASPlogin在线传讯(2006-04-25 17:17:00)
摘要：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html>
<script language ="vbscript">sub transfer()window.open"online.asp?UserName="&GetUserName.value,"_self"end sub</script>
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>无标题文档</title></head><body><form Name="GetuserName" Method="POST">请输入你的名字:<Input Type="Text"Name="UserName" Size="40"><br><Input Type="Button"Value="登录" Size="40"><Input Type="Reset"Value="重新输入" ></form></body></html>
......
ASPCalling(2006-04-25 17:15:00)
摘要：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><%'读取传送信息的时间strHour=Hour(Time())if Len(strhour)=1 then strhour="0" &Strhourstrminute=minute(time())if len(strminute)=1 then strminute="0"&strminute strtime=""&strhour&"时"&strminute&"分"'读取信息内容mymsg=request("inputmsg")if mymsg<>"" thenreceiver=request("receiver")usermsg=receiver&"msg"application.lockapplication(usermsg)="”"&receiver&"”"&session("username")&"于" &strtime&"传送信息给你：<br>" &mymsg application.unlockresponse.redirect"send.asp"end if%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>在线情况</title></head>
<body><form action="calling.asp">请选择收讯者：<select name="receiver"><%for i=0 to (application("totalusers")-1%)<option value="<%=application("onlineuser")(i)%"><%=application("onlineuser")(i)%><%next%></select><br>请输入信息......
asp常用资料-(2006-04-24 22:18:00)
摘要：asp常用资料
--------------------------------------------------------------------------------
<%语句……%><2>定义变量dim语句<%dim a,ba=10b=”ok!”%>注意：定义的变量可以是数值型，也可以是字符或者其他类型的<3>简单的控制流程语句1. If 条件1 then语句1elseif 条件2 then语句2else语句3endif2.while 条件语句 wend3.for count=1 to n step m语句1exit for语句2next 二.ASP数据库简单*作教程<1>.数据库连接(用来单独编制连接文件conn.asp)<%Set conn = Server.CreateObject("ADODB.Connection")conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bbs\db1\user.mdb") %>(用来连接bbs\db1\目录下的user.mdb数据库)<2>显示数据库记录原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录如果是从头到尾：用循环并判断指针是否到末 使用: not rs.eof如果是从尾到头：用循环并判断指针是否到开始 使用：not rs.bof
<!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%set rs=server.CreateObject("adodb.recordset") (建立recordset对象)sqlstr="select * from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)rs.movefirst ---->(将指针移到第一条记录)while not rs.eof ---->(判断指针是否到末尾)r......
小偷程序原理和简单示例(2006-03-22 14:23:00)
摘要：现在网上流行的小偷程序比较多，有新闻类小偷，音乐小偷，下载小偷，那么它们是如何做的呢，下面我来做个简单介绍，希望对各位站长有所帮助。（一）原理小偷程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻小偷程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用小偷程序的优点有：无须维护网站，因为小偷程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般小偷程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么小偷程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。（二）事例
下面就XMLHTTP在ASP中的应用做个简单说明
<%'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码function getHTTPPage(url)dim Httpset Http=server.createobject("MSXML2.XMLHTTP")Http.open "GET",url,falseHttp.send()if Http.readystate<>4 then exit functionend ifgetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")set http=nothingif err.number<>0 then err.Clear end function
'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换Function BytesToBstr(body,Cset)dim objstreamset objstream = Server.CreateObject("adodb.stream")objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = CsetByt......