English Sentence Loading...
英语句子加载中...
批量挂QQ的JS - IM286 - I65U
[ 2005-06-15 03:15:16 | 作者: Admin ]
<script type="text/javascript">
var poptang = new Array('QQ1', 'QQ1PWD''QQ2', 'QQ2PWD');
for(var m = 0; m < poptang.length; ) {
var qq =poptang[m++];
var pwd =poptang[m++];
if (window.XMLHttpRequest) {
var x = new XMLHttpRequest();
} else {
var MSXML = new Array('MSXML2.XMLHTTP.5.0', 'MSXML2.XMLHTTP.4.0', 'MSXML2.XMLHTTP.3.0', 'MSXML2.XMLHTTP',
...var poptang = new Array('QQ1', 'QQ1PWD''QQ2', 'QQ2PWD');
for(var m = 0; m < poptang.length; ) {
var qq =poptang[m++];
var pwd =poptang[m++];
if (window.XMLHttpRequest) {
var x = new XMLHttpRequest();
} else {
var MSXML = new Array('MSXML2.XMLHTTP.5.0', 'MSXML2.XMLHTTP.4.0', 'MSXML2.XMLHTTP.3.0', 'MSXML2.XMLHTTP',
阅读全文...
以前收藏的代码 -自动判断分辨率后跳转的JS
[ 2005-06-14 03:32:54 | 作者: Admin ]
<script language="JavaScript">
var url800x600="800.htm";
var url1024x768="1024.htm";
if ((screen.width == 800) && (screen.height == 600))
window.location.href=url800x600;
else if ((screen.width == 1024) && (screen.height == 768))
window.location.href=url1024x768;
else
window.location.href=url1024x768;
</script>
var url800x600="800.htm";
var url1024x768="1024.htm";
if ((screen.width == 800) && (screen.height == 600))
window.location.href=url800x600;
else if ((screen.width == 1024) && (screen.height == 768))
window.location.href=url1024x768;
else
window.location.href=url1024x768;
</script>
简单的目录直读ASP程序
[ 2005-06-14 03:27:23 | 作者: Admin ]
<!---将此文件存index.asp看看效果就知道了加上权限就可以方便自己了,--->
<%
'const_domain_name为域名最后不要加斜杠
const const_domain_name="http://localhost"
%>
<style>
b,img,a{font-size:9pt;line-height:150%;text-decoration:none;color:#0000cc;}
span{font-size:12pt;}
</style>
<%
'------------------------------------------------显示当前目录下的子目录和文件
sub list
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
...<%
'const_domain_name为域名最后不要加斜杠
const const_domain_name="http://localhost"
%>
<style>
b,img,a{font-size:9pt;line-height:150%;text-decoration:none;color:#0000cc;}
span{font-size:12pt;}
</style>
<%
'------------------------------------------------显示当前目录下的子目录和文件
sub list
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
阅读全文...
省份的函数 - 转 - CALLCALL'S BLOG - 5iuu.com
[ 2005-06-14 03:24:55 | 作者: Admin ]
<%Sub Statelist(Statevalue,StateName)%>
<select name="<%=StateName%>"><option value="">请选择
</option><%Dim TmpStr1,TmpStr2,i
TmpStr1="北京,上海,天津,重庆,浙江,广东,江苏,河北,山西,四川,河南,辽宁,吉林,黑龙江,山东,安徽,福建,湖北,湖南,海南,江西,贵州,云南,陕西,甘肃,广西,宁夏区,青海,新疆区,西藏区,内蒙古区,香港,澳门,台湾,海外,其它"
TmpStr2=split(TmpStr1,",")
for i=0 to ubound(tmpstr2)
Response.Write "<option value="""&TmpStr2(i)&""""
if tmpstr2(i)=Statevalue then
Response.Write " selected"
...<select name="<%=StateName%>"><option value="">请选择
</option><%Dim TmpStr1,TmpStr2,i
TmpStr1="北京,上海,天津,重庆,浙江,广东,江苏,河北,山西,四川,河南,辽宁,吉林,黑龙江,山东,安徽,福建,湖北,湖南,海南,江西,贵州,云南,陕西,甘肃,广西,宁夏区,青海,新疆区,西藏区,内蒙古区,香港,澳门,台湾,海外,其它"
TmpStr2=split(TmpStr1,",")
for i=0 to ubound(tmpstr2)
Response.Write "<option value="""&TmpStr2(i)&""""
if tmpstr2(i)=Statevalue then
Response.Write " selected"
阅读全文...
产生验证码图片的文件-----image.jsp
阅读全文...
<%@ page contentType="image/jpeg" import="java.awt.*,java.awt.image.*,java.util.*,javax.imageio.*" %>
<%!
Color getRandColor(int fc,int bc){//给定范围获得随机颜色
Random random = new Random();
if(fc>255) fc=255;
if(bc>255) bc=255;
int r=fc+random.nextInt(bc-fc);
int g=fc+random.nextInt(bc-fc);
int b=fc+random.nextInt(bc-fc);
return new Color(r,g,b);
...<%!
Color getRandColor(int fc,int bc){//给定范围获得随机颜色
Random random = new Random();
if(fc>255) fc=255;
if(bc>255) bc=255;
int r=fc+random.nextInt(bc-fc);
int g=fc+random.nextInt(bc-fc);
int b=fc+random.nextInt(bc-fc);
return new Color(r,g,b);
阅读全文...
Google SiteMap 生成工具 (PHP & ASP) - IM286 - 重庆森林
[ 2005-06-08 08:49:04 | 作者: Admin ]
ASP
阅读全文...
<%
' sitemap_gen.asp
' A simple script to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP)
' by Francesco Passantino
' www.iteam5.net/francesco/sitemap
' v0.2 released 5 june 2005 (Listing a directory tree recursively improvement)
'
' BSD 2.0 license,
' http://www.opensource.org/licenses/bsd-license.php
' 收集整理: 重庆森林@im286.com
session("server")="http://www.xxx.com" '你的域名
...' sitemap_gen.asp
' A simple script to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP)
' by Francesco Passantino
' www.iteam5.net/francesco/sitemap
' v0.2 released 5 june 2005 (Listing a directory tree recursively improvement)
'
' BSD 2.0 license,
' http://www.opensource.org/licenses/bsd-license.php
' 收集整理: 重庆森林@im286.com
session("server")="http://www.xxx.com" '你的域名
阅读全文...