博文

防sql注入代码(2007-10-17 11:16:00)

摘要：safe.asp，将此文件包含到每页的顶部，下面就正常使用request，或request.querystring来获取传过来的值了，不需要检测了，因为已经检测过了。
<%
Sql_in="and |or |on |in |select |insert |update |delete |exec |declare |'"
  '防止GET方法---------------------------------------------------------------------------------
  '区分出注入字符
  Sql=Split(Sql_in,"|")
  '如果GET过来的数据不为空
  If Request.QueryString<>"" Then
      '逐一取出提交过来的参数
     For Each Sql_Get In Request.QueryString
     For Sql_Data=0 To Ubound(Sql)
      '判断是否包含非法字符
      IF Instr(Lcase(Request.QueryString(Sql_Get)),Sql(Sql_Data))<>0 Then
       '如果有非法字符，弹出对话框提示，并自动返回上一页
       Response.Write("<script>alert('系统提示：请不要输入非法字符尝试注入↓，你的IP已记录!');history.go(-1);</script>")
    Response.End()
   End IF
 &......

阅读全文(2373) | 评论:0

asp连接远程mssql数据库代码(2007-09-19 10:00:00)

摘要：当远程MSSQL数据库更改了端口号，所以连接的代码也要相应的改一下
<%
dim conn,connstr
set conn = server.createobject("adodb.connection")
connstr="Provider=sqloledb;Data Source=*.*.*.*,端口号;Network Library=DBMSSOCN;Initial Catalog=数据库名;User ID=用户名;Password=密码;"
conn.open connstr
%>......

阅读全文(3802) | 评论:0

fso检测文件、磁盘、文件夹是否存在代码(2007-09-15 22:43:00)

摘要：利用FSO检测文件、磁盘、文件夹是否存在
<%
dim fso
set fso=server.createobject("scripting.filesystemobject")
if fso.driveexists("d:") then
response.write"磁盘D是存在的"
else
response.write"磁盘D是不存在的"
end if if fso.folderexists(server.mappath("folder")) then
response.write"folder文件夹是存在的"
else
response.write"folder文件夹是不存在的"
end if if fso.fileexists(server.mappath("sss.ASP")) then
response.erite"sss.asp文件是存在的"
else
response.write"sss.asp文件是不存的"
end if set fso=nothing
%> ......

阅读全文(3374) | 评论:0

网页颜色对话框的使用(2007-09-06 15:25:00)

摘要：index.asp页面的内容
<script language='JavaScript'>
function SelectColor(sEL,form){
    var dEL = document.all(sEL);
    var url = 'selcolor.asp?color='+encodeURIComponent(sEL);
    var arr = showModalDialog(url,window,'dialogWidth:280px;dialogHeight:250px;help:no;scroll:no;status:no');
    if (arr) {
        form.value=arr;
        //sEL.style.backgroundColor=arr;
    }
}
</script>
<form name="form1" method="post" action="">
 <input name='FontColor' type='text' value='' size='10' maxlength='10'><a href="#" onclick="SelectColor(this,FontColor)">选择颜色</a>
</form>

selcolor.asp页面内容
<HTML>
<HEAD>
<META content="text/html; charset=gb2312" http-equiv="Content-Type"> <STYLE type=text/css>
TD {FONT-SIZE: 10.8pt}
BODY {FONT-S......

阅读全文(3821) | 评论:0

asp随机获取数据库中的记录代码(2007-08-30 12:29:00)

摘要：利用asp随机获取数据库中的记录且不出现重复的记录
<!--#include file="adoconn.asp"-->
<%
'-------------------------检索数据-----------------------
strSQL = "SELECT * FROM [table]"   
'Sql语句，检索数据库
'Set objRS = Server.CreateObject("ADODB.Recordset")   
'创建记录集
rs.Open strSQL,conn,1,1       
'执行检索
Count=rs.RecordCount           
'得到记录总数
Item=2                                                        
'显示记录数
'-------------------------检索数据----------------------- '-------------------------------------------------------------------------------
redim a(Item, 3),t(Count)
......

阅读全文(3523) | 评论:1

生成静态页面方法二(2007-08-17 15:11:00)

摘要：原理：用asp获取动态页面的html代码后，再将这些html代码写成html代码。
<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
path=server.mappath("index.html")
If Myfileobject.fileexists(path) Then '如果存在此文件，删除之
 MyfileObject.deletefile path
End If
Set MyTextFile=MyFileObject.CreateTextFile(path)
strurl="http://www.sina.com.cn/"   '这里可以换成其他动态页面的地址。
strTmp = GetHTTPPage(trim(strurl)) MyTextFile.WriteLine(strTmp) MytextFile.Close
response.write "完成任务"
%> <%
Function getHTTPPage(url)
 On Error Resume Next
 dim http
 set http=Server.createobject("Microsoft.XMLHTTP")
 Http.open "GET",url,false
 Http.send()
 if Http.readystate<>4 then
  exit function
 end if
 getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
 set http=nothing
 If Err.number<>0 then
  Response.Write "<p align='center'><font color='red'><b......

阅读全文(2875) | 评论:0

ASP备份和恢复MSSQL数据库的操作方法(2007-08-16 08:48:00)

摘要：利用asp实现对mssql数据库的备份和恢复。
1、备份
<%
SQL="backup database 数据库名 to disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"
set cnn=Server.createobject("adodb.connection")
cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="
cnn.execute SQL
on error resume next
if err<>0 then
response.write "错误："&err.Descripting
else
response.write "数据备份成功！"
end if
%>

2、恢复
<%
SQL="Restore database 数据库名 from disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"
set cnn=Server.createobject("adodb.connection")
cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="
cnn.execute SQL
on error resume next
if err<>0 then
response.write "错误："&err.Descripting
else
response.write "数据恢复成功！"
end if
%>
......

阅读全文(3964) | 评论:0

asp天气预报采集代码(2007-08-07 13:49:00)

摘要：<%
'此程序用来获取北京的天气预报，可以将北京换成你想要的地点。
strurl="http://weather.tq121.com.cn/mapanel/index1.php?city=北京"
s1="<table width=""166"" height=""15""  border=""0"" cellpadding=""0"" cellspacing=""0"">"
s2="<table width=""169"" height=""37""  border=""0"" cellpadding=""0"" cellspacing=""5"">"
 Dim j1,l,b(3)  
  strTmp = GetHTTPPage(strurl)  
  wstr=strCut(strTmp, s1,s2,2) '
  wstr=Replace(s1&wstr,"<br>","|")
  wstr=Replace(wstr,"</table>","</table>|")
  wstr=RemoveHTML(wstr)
  wstr=Replace(wstr,Chr(10),"")
  wstr=Replace(wstr,Chr(32),"")
  wstr=Replace(wstr,"&nbsp;","")
  str=Split(wstr,"|")
  For i=0 To 3
   response.write str(i)&"<br>"
  next
response.End
%>
<%
Function regExReplace(sSource,patrn, replStr)
Dim regEx, str1
str1 = sSource
Set regEx = New RegExp
re......

阅读全文(6432) | 评论:2

利用fso显示某一文件夹中的所有内容(2007-08-01 09:41:00)

摘要：利用fso显示某一文件夹中的所有内容
<%
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
path=server.mappath("./folder") '当前目录下folder文件夹目录
'创建一个Folder对象
Set MyFolder=MyFileObject.GetFolder(path)
For Each thing in MyFolder.SubFolders '获取子文件夹
 response.write "<p>目录："&thing
' MyFileObject.DeleteFolder thing 删除文件夹，注意使用
next
'循环显示其中文件
For Each thing in MyFolder.Files
Response.Write("<p>文件："&thing) '输出文件路径
'MyFileObject.DeleteFile thing '删除这些文件,此删除不可以恢复，需要小心使用
Next
%>......

阅读全文(3255) | 评论:0

ASPJPEG组件使用说明(2007-07-27 09:15:00)

摘要：利用aspjpeg组件对图片进行处理
1、为图片制作缩略图
<% ' 建立实例
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 图片所在位置
Path = Server.MapPath("images") & "\clock.jpg"
' 打开
Jpeg.Open Path ' 设置缩略图大小（这里比例设定为50%）
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2 ' 保存缩略图到指定文件夹下
Jpeg.Save Server.MapPath("images") & "\clock_small.jpg" ' 注销实例
Set Jpeg = Nothing
%> <IMG SRC="images/clock.jpg"><P>
<IMG SRC="images/clock_small.jpg"> 2、为图片加入水印功能

<%
Dim Jpeg
' 建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打开目标图片
Jpeg.Open Server.MapPath("images/dodge_viper.jpg") ' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 红色
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True 
Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org" ' 保存文件
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") ' 注销对象
Set Jpeg = Nothing
%> ' Aspjpeg 功......

阅读全文(3811) | 评论:0