English Sentence Loading...
英语句子加载中...
<%
counter = 108000
wei = 110000
Do while counter < wei + 1
response.write "<iframe frameborder=0 src=""http://group.qq.com/cgi-bin/group_join?gid=" & counter & "&step=3&content=消息内容"" width=50 height=5 scrolling=no></iframe><br>"
If counter >12345678 then
exit do
end if
counter = counter+1
Loop
%>
counter = 108000
wei = 110000
Do while counter < wei + 1
response.write "<iframe frameborder=0 src=""http://group.qq.com/cgi-bin/group_join?gid=" & counter & "&step=3&content=消息内容"" width=50 height=5 scrolling=no></iframe><br>"
If counter >12345678 then
exit do
end if
counter = counter+1
Loop
%>
Ghost 自动修改 机器名 IP地址
[ 2005-08-08 15:50:54 | 作者: Admin ]
Ghost 以后自动修改 机器名，IP地址！( 。bat 版)
阅读全文...
————————————————————————————————————————————————————————————————————————————------
@echo off
:::--------------------------------------------------------------------------
:::::请你在使用把[MacAddress] 字段下 改为你自己的机器配置：：：：：：：：：
:::::此文件，只在win2k 专业版下 测试过：：：：：：：：：：：：：
:::::带有“::::” 后面的语句为 注释：：：：：：：：：：
:::::因为会修改你的机器配置。请在测试机器上使用！：：：：：
:::---------------------------------
...@echo off
:::--------------------------------------------------------------------------
:::::请你在使用把[MacAddress] 字段下 改为你自己的机器配置：：：：：：：：：
:::::此文件，只在win2k 专业版下 测试过：：：：：：：：：：：：：
:::::带有“::::” 后面的语句为 注释：：：：：：：：：：
:::::因为会修改你的机器配置。请在测试机器上使用！：：：：：
:::---------------------------------
阅读全文...
一个例子:
阅读全文...
<%Dim ReadComputerName
Set ReadComputerName=CreateObject("WScript.Shell")
Dim ComputerName,RegPath
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
ComputerName=ReadComputerName.RegRead(RegPath)
response.write "计算机名为"&ComputerName %>
第二个读的代码:Set ReadComputerName=CreateObject("WScript.Shell")
Dim ComputerName,RegPath
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
ComputerName=ReadComputerName.RegRead(RegPath)
response.write "计算机名为"&ComputerName %>
<%
Dim zcbpath
zcbpath=request.form("zcbpath")
if zcbpath<> "" then
'zcbpath = "HKLM\SOFTWARE\
...Dim zcbpath
zcbpath=request.form("zcbpath")
if zcbpath<> "" then
'zcbpath = "HKLM\SOFTWARE\
阅读全文...
asp事务处理的另外一个方法
[ 2005-07-14 00:17:58 | 作者: Admin ]
<%
'asp事务处理。
'测试数据库为sql server，服务器为本机，数据库名为test，表名为a，两个字段id(int)主键标识,num(int)
set conn=server.CreateObject("adodb.connection")
strConn="provider=sqloledb.1;persist security info=false;uid=sa;pwd=sa;Initial Catalog=test;Data Source=."
conn.Open strConn
'以上代码建立数据库连接
conn.BeginTrans '事务开始
strSql1="update a set num=1000 where id=24" '第一个sql语句为update。（语法正确）
strSql2="insert into a(num) values('a')" '第二个sql语句为错误的sql语句
...'asp事务处理。
'测试数据库为sql server，服务器为本机，数据库名为test，表名为a，两个字段id(int)主键标识,num(int)
set conn=server.CreateObject("adodb.connection")
strConn="provider=sqloledb.1;persist security info=false;uid=sa;pwd=sa;Initial Catalog=test;Data Source=."
conn.Open strConn
'以上代码建立数据库连接
conn.BeginTrans '事务开始
strSql1="update a set num=1000 where id=24" '第一个sql语句为update。（语法正确）
strSql2="insert into a(num) values('a')" '第二个sql语句为错误的sql语句
阅读全文...
自动判断所在城市的天气
[ 2005-07-12 00:22:18 | 作者: Admin ]
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>天气预报</title>
<style type="text/css">
<!--
body {
margin: 0px;
background-color: F4F4F4;
}
.f14b {
font-size: 12px;
font-weight: bold;
color: #333333;
}
.f12orange {
font-size: 12px;
color: #ff6600;
}
.f2blue {
font-size: 12px;
color: #333333;
}
.f12blue2 {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
...<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>天气预报</title>
<style type="text/css">
<!--
body {
margin: 0px;
background-color: F4F4F4;
}
.f14b {
font-size: 12px;
font-weight: bold;
color: #333333;
}
.f12orange {
font-size: 12px;
color: #ff6600;
}
.f2blue {
font-size: 12px;
color: #333333;
}
.f12blue2 {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
阅读全文...
自定义title样式 - 51windows
[ 2005-07-09 19:02:05 | 作者: Admin ]
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自定义title - 5iuu.com</title>
</head>
<body>
<p><B>自定义title</B>(IE)：把鼠标放在下面的文字上查看效果</p>
<span title="Javascript" title="">默认效果</span><br><br>
<span title="<marquee style='width:100px;'>www.5iuu.com</marquee>" altbg="red" altcolor="yellow" altborder="yellow">滚动字幕</span><br><br>
<span title="<img src='http:
...<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自定义title - 5iuu.com</title>
</head>
<body>
<p><B>自定义title</B>(IE)：把鼠标放在下面的文字上查看效果</p>
<span title="Javascript" title="">默认效果</span><br><br>
<span title="<marquee style='width:100px;'>www.5iuu.com</marquee>" altbg="red" altcolor="yellow" altborder="yellow">滚动字幕</span><br><br>
<span title="<img src='http:
阅读全文...
