English Sentence Loading...
英语句子加载中...
浏览模式: 普通 | 列表
分类: 『代碼收藏』 | << | < | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | >

批量挂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',
...

阅读全文...
<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>

简单的目录直读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")
...

阅读全文...
<%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"
...

阅读全文...

JSP彩色验证码

[ 2005-06-11 05:03:56 | 作者: Admin ]
产生验证码图片的文件-----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);
...

阅读全文...
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" '你的域名
...

阅读全文...