ASP
文章平均质量分 68
xck01
知道改变命运,梦想成就未来!
展开
-
ASP小偷URL生成本地HTML
function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate exit function end if getHTTPPage=bytesToBSTR(Http转载 2006-03-31 11:34:00 · 888 阅读 · 0 评论 -
程序中主动防SQL注入.
Function CheckNumeric(Number) If Not IsNumeric(Number) CheckNumeric = 0 Else CheckNumeric = Number End If End Function Function Checkstr(Str) If Isnull(Str) Then CheckStr = "" Exit Function End If原创 2008-05-15 12:06:00 · 407 阅读 · 0 评论 -
ASP创建并打开SQL数据库连接语句段
on error resume nextset Cn=server.createobject("adodb.connection")Cn.open "driver={sql server};description=sqldemo;server=127.0.0.1;uid=sa;pwd=123;database=cqsloa008" If Err Then err.Clea原创 2008-05-09 15:37:00 · 1012 阅读 · 0 评论 -
ASP创建并打开ACCESS数据库连接并读取内容语句段
Set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database.mdb")conn.Open connstrset rs = server.createobject("adodb.records原创 2008-05-09 15:46:00 · 726 阅读 · 0 评论 -
导入EXCEL 和TXT(源自镜子)
下面这段代码可以生成Excel文件,已调试dim strLine,responsestr strLine=""Set fso = server.CreateObject("scripting.filesystemobject") --创建EXCEL文件set myfile = fso.CreateTextFile(Server.MapPath("download.xls"),true)Set转载 2006-05-11 17:38:00 · 1459 阅读 · 0 评论 -
重庆移动通话清单统计(EXCEL文件从重庆移动网上下载)
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>http://www.w3.org/TR/html4/loose.dtd">科长电话清单 查询号码对方号码通话时间时长类型费用 建立Connection对象 Dim db,rs,strSql,dbxls dbxls="book1.xls" Set db = Server.CreateObject原创 2006-05-11 09:42:00 · 4022 阅读 · 0 评论 -
取汉字的拼音首字母
无标题文档阿楚取首字拼音QQ 2786103欢迎大家交流function GetAsc(str)str=Ucase(str)这段只是用来保留中文字间的数字,不要可删除str=Replace(str,"0","a")str=Replace(str,"1","b")str=Replace(str,"2","c")str=Replace(str,"3","d")str=Replace转载 2006-05-11 09:54:00 · 1183 阅读 · 0 评论 -
ASP读取EXCEL数据
把EXCEL当成数据库来读要有很严格的格式限制,还会出现很多问题...===================Ⅰ)将Excel97或Excel2000生成的XLS文件(book)看成一个数据库,其中的每一个工作表(sheet)看成数据库表 Ⅱ)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容 Ⅲ)Excel中的行标题(即字段名)不能够包含数字. Excel的驱转载 2006-04-28 15:48:00 · 8319 阅读 · 0 评论 -
ASP打印某文件的兄弟文件的文件名(按文件大小排序)
<!--.D { font-family: "宋体"; font-size: 20pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none}.Z { font-family: "宋体"; font-size: 9pt; fo原创 2006-04-25 10:21:00 · 1170 阅读 · 0 评论 -
ASP不缓存页面
Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" % >转载 2006-04-21 15:36:00 · 2789 阅读 · 0 评论 -
ASP如何获取客户端真实IP地址
要想透过代理服务器取得客户端的真实IP地址,就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要注意的事,并不是每个代理服务器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取客户端的真实 IP,有些用此方法读取到的仍然是代理服务器的IP。还有一点需要注意的是:如果客户端转载 2006-04-08 15:07:00 · 747 阅读 · 0 评论 -
RS记录集对象的使用方法
RS记录集对象的方法: rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 rs.movefirst 将记录指针移到数据表第一行 rs.movelast 将记录指针移到数据表最后一行 rs转载 2006-04-13 09:40:00 · 4593 阅读 · 0 评论 -
asp产生随机数
Function gen_key(digits) Create and define array dim char_array(50) char_array(0) = "0" char_array(1) = "1" char_array(2) = "2" char_array(3) = "3" char_array(4) = "4" char_array(5) = "5" char_array(转载 2006-03-30 18:08:00 · 5307 阅读 · 1 评论 -
ASP开发技巧集锦四
44. title换行 这是一行
这是另一行!">把鼠标放上来 37. 自动最大化 function window_onload(){ window.moveTo(-2,-2); window.resizeTo(screen.availWidth, screen.availHeight);} 34. 响应回车 functio转载 2006-04-04 16:38:00 · 879 阅读 · 0 评论 -
精华 ASP 代码
1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键no可用于Table2.取消选取、防止复制3.onpaste="returnfalse"不准粘贴4.oncopy="returnfalse;"oncut="returnfalse;"防止复制5.IE地址栏前换成自己的图标6.可以在收藏夹中显示出你的图标7.关闭输转载 2006-03-31 11:37:00 · 694 阅读 · 0 评论 -
被动防SQL注入
call sql_into_check() 调用ql防注入代码2008-05-14 kz=================sql防注入代码=============================2008-05-14 kzsub sql_into_check()dim sql_injdataSQL_injdata = "|;|and|exec|insert|select|delete原创 2008-05-16 11:35:00 · 725 阅读 · 0 评论