年终岁末经典ASP代码大征集-我担任Asp斑竹以来的第一贴Jspadmin

jspadmin 2005-12-22 09:48:45
在各位兄弟各位姐妹以及大斑竹awaysrain、meizz和笨狼等高人的支持下，我很荣幸担任Asp斑竹，一直努力想回报大家对我的支持。希望我的第一贴能为大家带来一点点的帮助和方便！顺祝所有坛友元旦、圣诞快乐！废话少说，我说下回贴原则：
1、请大家将自己认为经典而又简短的代码贴上来，共同分享，代码力求简单，最好一次回复能贴的完最好。
2、贴之前请整理好，并说明功用，最好加上注释。
3、贴之前请仔细查看是否已经有同样代码贴出，不要贴重复了
4、我会慷慨给分的：），200分不够的话，我会再加，保证认真整理代码者得到该得的分。（我现在一共有2000分，希望这次能用掉一半）
5、请其他几位斑竹和大斑竹以及世外高人们能助小弟一臂之力，贡献上各位珍藏的代码
...全文
17354 211 打赏 收藏 转发到动态 举报
写回复
用AI写文章
211 条回复
切换为时间正序
请发表友善的回复…
发表回复
aierda 2010-06-02
  • 打赏
  • 举报
 回复
怀念asp
LuJianjun5 2006-01-04
  • 打赏
  • 举报
 回复
up`~!!!
kofkyo 2006-01-04
  • 打赏
  • 举报
 回复
Mark
Thank you all
AVAmyZ 2006-01-04
  • 打赏
  • 举报
 回复
mark
xiaostar007 2006-01-04
  • 打赏
  • 举报
 回复
mark
ytzz 2006-01-04
  • 打赏
  • 举报
 回复
我也来说两句.首先jspadmin开头就没开个好头.贴的就不是原创的代码.呵呵.

我也有点自己的代码,本来想贴上来.可是感觉太多太乱了.就算贴出来了,又有几个人会看到?呵呵.

不说了,出发点是好的!还是支持!
skycuilin 2006-01-04
  • 打赏
  • 举报
 回复
支持和感谢大家的发贴，但我感觉原创太少和经典太少，琐碎的东西都能google到，细节性的问题关键在于日常的积累，我觉的好代码最重要的是思路，譬如说经典的算法，门户级数据库架构的设计思路，新技术的应用(ajax，asp开发基于xml,xslt的门户级应用，智能采集，自动分类等等)．
在这里我只是希望一些做过大型门户级应用的朋友，能够站出来谈谈开发的思路与方式，让大家能够少走很多弯路，也更有利于web开发的进步，例如：网易，新浪等cms系统的开发与应用（模板技术，采编系统，数据库架构，缓存技术，基于人工智能的自动分类关键字自动提取），基于lucene的开源搜索引擎在asp下的接口设计（现在搜索引擎火热的情况下，我想大家也希望自己的asp站点也想拥有一个顶级的站内搜索应用）.
我想大家都有一个共同的心愿，就是不想让asp的应用止步在单纯的小型应用开发上．
jspadmin 2006-01-04
  • 打赏
  • 举报
 回复
结贴&总结：呵呵，本贴得到了许多批评，自己感觉也是代码太多太杂，缺少原创，不过，也有部分比较经典的回复（我本来就是要收集经典代码的），至少以后需要资料时，方便查找点。下面给出整理后的打包下载地址和其他一些资料下载地址：

http://www.pifoo.com/netos/UploadFiles/经典ASP代码.rar （本压缩包包含下面5个文件的内容，下面5个文件是本贴代码集合）
http://www.pifoo.com/netos/UploadFiles/经典ASP代码1.txt
http://www.pifoo.com/netos/UploadFiles/经典ASP代码2.txt
http://www.pifoo.com/netos/UploadFiles/经典ASP代码3.txt
http://www.pifoo.com/netos/UploadFiles/经典ASP代码4.txt
http://www.pifoo.com/netos/UploadFiles/经典ASP代码5.txt

下面提供一些其他学习资料、代码共享、下载地址：
本人的学习资料：http://www.pifoo.com/netos/UploadFiles/我的资料.rar
网友学习资料下载：http://1621.cn/AspStudy.rar （感谢yb2008提供下载）
网友技术资料共享：http://www.bjcan.com/hengxing/more.asp （感谢ph580共享资料）
chouchy 2005-12-31
  • 打赏
  • 举报
 回复
1\图片按钮：交换图片
准备交换按钮图片命名规则如“a.gif","a_.gif"
<script language="javascript">
function swapImg(img)
{
var imgsrc=img.src;
var pos=imgsrc.indexOf(".gif");
if(imgsrc.charAt(pos-1)!="_")
{
img.src=imgsrc.substring(0,pos)+"_.gif";
}
else{
img.src=imgsrc.substring(0,pos-1)+".gif";
}
}
<script>
调用<img src="a.gif" onmouseover="swapImg(this)" onmouseout="swapImg(this)">


2\动态调整iframe以适应内容高度：
<script lanuage="javascript">
function resizeIframe(win)
{
if(win == null)
window.setTimeout('doResize()', 1000);
else
doResize(win);
}

function doResize(win)
{
if(win == null)
win = window;
parentWin = win.parent;
if(win != window.top && parentWin.frames.length > 0)
{
myframe = parentWin.document.getElementById(win.name);
iHeight = win.document.body.scrollHeight;//offsetHeight;
myframe.style.height = iHeight+ "px";
resizeIframe(parentWin);
}
}
window.onload=resizeIframe;
</script>
soft_2008 2005-12-30
  • 打赏
  • 举报
 回复
up day day up day day up day day in Dec last
lzhblacker 2005-12-30
  • 打赏
  • 举报
 回复
up 一下吧。。。。。考试了 没时间看 哈哈哈
jspadmin 2005-12-30
  • 打赏
  • 举报
 回复
to: LDjakey(jakey)
请搜索在帖子http://community.csdn.net/Expert/topic/4464/4464925.xml?temp=.4153406里我发的一个回复：ajax学习范例，使用ajax可以实现定时刷新及指定时间内刷新页面（只要保持该页面打开，无须人工刷新）
vjame 2005-12-30
  • 打赏
  • 举报
 回复
学习
QCB181 2005-12-30
  • 打赏
  • 举报
 回复
收集一些常用的正则表达式

正则表达式用于字符串处理，表单验证等场合，实用高效，但用到时总是不太把握，以致往往要上网查一番。我将一些常用的表达式收藏在这里，作备忘之用。本贴随时会更新。

匹配中文字符的正则表达式： [\u4e00-\u9fa5]

匹配双字节字符(包括汉字在内)：[^\x00-\xff]

应用：计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）

String.prototype.len=function(){return this.replace([^\x00-\xff]/g,"aa").length;}

匹配空行的正则表达式：\n[\s| ]*\r

匹配HTML标记的正则表达式：/<(.*)>.*<\/\1>|<(.*) \/>/

匹配首尾空格的正则表达式：(^\s*)|(\s*$)

应用：javascript中没有像vbscript那样的trim函数，我们就可以利用这个表达式来实现，如下：

String.prototype.trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}

利用正则表达式分解和转换IP地址：

下面是利用正则表达式匹配IP地址，并将IP地址转换成对应数值的Javascript程序：

function IP2V(ip)
{
re=/(\d+)\.(\d+)\.(\d+)\.(\d+)/g //匹配IP地址的正则表达式
if(re.test(ip))
{
return RegExp.$1*Math.pow(255,3))+RegExp.$2*Math.pow(255,2))+RegExp.$3*255+RegExp.$4*1
}
else
{
throw new Error("Not a valid IP address!")
}
}

不过上面的程序如果不用正则表达式，而直接用split函数来分解可能更简单，程序如下：

var ip="10.100.20.168"
ip=ip.split(".")
alert("IP值是："+(ip[0]*255*255*255+ip[1]*255*255+ip[2]*255+ip[3]*1))

匹配Email地址的正则表达式：\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*

匹配网址URL的正则表达式：http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?

利用正则表达式去除字串中重复的字符的算法程序：[注：此程序不正确，原因见本贴回复]

var s="abacabefgeeii"
var s1=s.replace(/(.).*\1/g,"$1")
var re=new RegExp("["+s1+"]","g")
var s2=s.replace(re,"")
alert(s1+s2) //结果为：abcefgi

我原来在CSDN上发贴寻求一个表达式来实现去除重复字符的方法，最终没有找到，这是我能想到的最简单的实现方法。思路是使用后向引用取出包括重复的字符，再以重复的字符建立第二个表达式，取到不重复的字符，两者串连。这个方法对于字符顺序有要求的字符串可能不适用。

得用正则表达式从URL地址中提取文件名的javascript程序，如下结果为page1

s="http://www.9499.net/page1.htm"
s=s.replace(/(.*\/){0,}([^\.]+).*/ig,"$2")
alert(s)

利用正则表达式限制网页表单里的文本框输入内容：

用正则表达式限制只能输入中文：onkeyup="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\u4E00-\u9FA5]/g,''))"

用正则表达式限制只能输入全角字符： onkeyup="value=value.replace(/[^\uFF00-\uFFFF]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\uFF00-\uFFFF]/g,''))"

用正则表达式限制只能输入数字：onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"

用正则表达式限制只能输入数字和英文：onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"
QCB181 2005-12-30
  • 打赏
  • 举报
 回复
存储过程使用大全（ASP 版）

p.Append cm.CreateParameter("参数名称",类型,方向,大小)
cmd.CommandType = 4
1，调用没有参数的存储过程
<%
set conn=server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
strconn="dsn=pubs;uid=sa;pwd"

conn.Open strconn
set cmd.ActiveConnection=conn

cmd.CommandText="{call nono}"

'set rs=cmc.exe 或者cmd.execute

set rs=cmd.Execute()

%>
2，一个输入的参数的存储过程
<%
set conn=server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
strconn="dsn=pubs;uid=sa;pwd"

conn.Open strconn
set cmd.ActiveConnection=conn

cmd.CommandText="{call oneinput(?)}"
cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger ,adParamInput )
cmd("@aaa")=100

cmd.Execute()

%>
3，一个输入参数和一个输出的参数
<%
set conn=server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
strconn="dsn=pubs;uid=sa;pwd"

conn.Open strconn
set cmd.ActiveConnection=conn

cmd.CommandText = "{call oneinout(?,?)}"
cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger,adParamInput)
cmd("@aaa")=10
cmd.Parameters.Append cmd.CreateParameter("@bbb",adInteger,adParamOutput)

cmd.Execute()

bbb=cmd("@bbb")
%>
4，一个输入参数，一个输出参数，和一个返回值
<%
set conn=server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
strconn="dsn=pubs;uid=sa;pwd"

conn.Open strconn
set cmd.ActiveConnection=conn

cmd.CommandText="{?=call onereturn(?,?)}"

cmd.Parameters.Append cmd.CreateParameter("@return_value",adInteger,adParamReturnValue )
cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger,adParamInput )
cmd("@aaa")=10
cmd.Parameters.Append cmd.CreateParameter("@bbb",adInteger,adParamOutput)

cmd.Execute()

bbb=cmd("@bbb")
rrr=cmd("@return_value")
%>
wtg321 2005-12-29
  • 打赏
  • 举报
 回复
再网上找各种读ACCESS表内所有用户表的表名后整理如下:
<!--#include file="conn.asp"-->
<% Set rs=Conn.OpenSchema(20)
Do Until rs.EOF
If rs(3)="TABLE" Then Response.Write "Table name:"& rs(2)& "<br>" end if
rs.MoveNext
Loop

%>
------------如去掉IF,就是所有表包括系统表在内.
it_farmer 2005-12-29
  • 打赏
  • 举报
 回复
好东东，无条件支持~_~
zhaohh 2005-12-29
  • 打赏
  • 举报
 回复
说句良心话：“好东西还是挺多的，版主没有白贴”；
慢慢学习吧！
chx81717 2005-12-29
  • 打赏
  • 举报
 回复
小弟学习一下
arrowy 2005-12-29
  • 打赏
  • 举报
 回复
?
加载更多回复（189）
在线扫描探测检查asp站点木马后门的程序
代码如下:<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936″%> <% ‘设置登陆密码，使用前务必修改此密码 PASSWORD = “www.pifoo.com” ‘其他扫描设置 DimFileExt = “asp,cer,asa,cdx”  ‘文件类型扩展名列表，不在此列表的将不被扫描 maxfilesize= 51200 ‘500K，超过此文件大小的文件(一般不是木马)，将不被扫描 timeout=600 ‘如果扫描超过600秒，脚本将终止 ‘jspadmin@asp.web.csdn=阿笨狗=飞云 修改于2006.07.07 ‘获取最新修改版本，请关注http:/
批量文件自动搜索替换插入器 Ver2.1
‘批量文件自动搜索替换插入器 Ver2.1 ‘飞云编写,CSDN帐号:jspadmin,QQ:33323489 ‘个人网站http://www.pifoo.com  蚍蜉中文站，欢迎交换链接。本站提供免费博客申请注册。 ‘你可以使用或修改本代码，但是请保留版权信息或链接，谢谢使用！ ‘如果有问题或建议，请给我留言 http://www.pifoo.com/guestbook/  点击这里下载-批量文件自动搜索替换插入器Ver1.0 点击这里下载-批量文件自动搜索替换插入器Ver2.0 http://www.pifoo.com/netos/UploadFiles/replace2.1.rarVe
JspMyAdmin2:JspMyAdmin 2-用于MySql数据库管理的Java Web工具-开源
JspMyAdmin 2是用于通过Web进行MySql数据库管理的软件。 它提供了一个用户友好的设计来管理大多数MySql数据库管理。 只需单击鼠标，即可创建和管理数据库对象（数据库，表，视图等）。
毕业设计：Java项目基于SSM的mysql-基于Apriori算法的网络书城（源码 + 数据库 + 说明文档）
毕业论文 第2章 相关技术简介 2 2.1 JSP的技术介绍 2 2.2 JSP的技术特点 3 2.3 Apache简介 3 2.4 JSPAdmin简介 3 2.5 Mysql数据库 3 第3章 网站分析 5 3.1 网站设计目标 5 3.2 网站可行性分析 5 3.3 网站功能需求概述 5 3.4 网站设计规则 6 3.5 网站运行环境 6 第4章 网站设计 9 4.1 框架设计 9 4.2 功能模块设计 9 4.3 技术结构 10 4.4 网站数据库结构设计 10 4.4.1 数据库设计规范 10 4.4.2 数据库概念模型 10 4.4.3 数据表字段设计 12 4.5 网站结构类图 13 4.6 网站交互图 14 第5章 网站详细设计 15 5.1 网站配置 15 5.2网站的功能模块实现 15 5.2.1 前台 15 5.2.2 后台 20 第6章 网站的测试 22 6.1 程序调试 22 6.2 程序的测试 23 6.2.1 测试的重要性及目的 23 6.2.2 测试的步骤 2
毕业设计：基于SSM的mysql-基于Apriori算法的网络书城（源码 + 数据库 + 说明文档）
毕业设计：基于SSM的mysql_基于Apriori算法的网络书城（源码 + 数据库 + 说明文档） 第2章 相关技术简介 2 2.1 JSP的技术介绍 2 2.2 JSP的技术特点 3 2.3 Apache简介 3 2.4 JSPAdmin简介 3 2.5 Mysql数据库 3 第3章 网站分析 5 3.1 网站设计目标 5 3.2 网站可行性分析 5 3.3 网站功能需求概述 5 3.4 网站设计规则 6 3.5 网站运行环境 6 第4章 网站设计 9 4.1 框架设计 9 4.2 功能模块设计 9 4.3 技术结构 10 4.4 网站数据库结构设计 10 4.4.1 数据库设计规范 10 4.4.2 数据库概念模型 10 4.4.3 数据表字段设计 12 4.5 网站结构类图 13 4.6 网站交互图 14 第5章 网站详细设计 15 5.1 网站配置 15 5.2网站的功能模块实现 15 5.2.1 前台 15 5.2.2 后台 20 第6章 网站的测试 22 6.1 程序调试 22 6.2 程序的测试 23 6.2.1 测试的重要性及目的 23 6.2.2 测试的步骤 2
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章