您正在查看 "Asp" 分类下的文章
2009年06月04日 星期四 11:54
1.用uft-8编码
2.用gb2312的话可以解决:在js里传递数据的时候用escape,在asp里面接收数据时用unescape就可以了.
|
2009年02月26日 星期四 11:15
1.head之间必须是<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
2.将该网页“另存为”，编码为UTF-8
3.ASP文件头中包含以下三条代码
<%@ CODEPAGE=65001 %>
<% Response.CodePage=65001%>
<% Response.Charset="UTF-8" % |
2008年10月31日 星期五 20:06
官方已经修正该漏洞。
–==+=================== www.nspcn.org =================+==–
–==+ OBlog (tags.asp) Remote SQL Injection Exploit +==–
–==+====================================================================================+==–
#Author: Whytt & Tr4c |
2008年06月04日 星期三 11:08
Function SafeRequest(ParaName,ParaType)
'--- 传入参数 ---
'ParaName:参数名称-字符型
'ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)
Dim ParaValue
ParaValue=Request(ParaName)
If ParaType=1 then
|
2008年06月04日 星期三 10:45
'防止SQL注入
Function ProtectSQL(sSql)
If ISNull(sSql) Then Exit Function
sSql=Trim(sSql)
If sSql="" Then Exit Function
sSql=Replace(sSql,Chr(0),"")
sSql=Replace(sSql,"'","‘")
sSql=Replace(sSql," ","")
sSql=Replace(sSql,"%","％")
sSql=Replace(sSql,"-","－")
ProtectSQL=sSql
End Function |
2008年06月04日 星期三 09:08
<%
Dim Query_Badword,Form_Badword,i,Err_Message,Err_Web,name
'------定义部份 头----------------------------------------------------------------------
Err_Message = 1 '处理方式：1=提示信息,2=转向页面,3=先提示再转向
Err_Web = "Err.Asp" '出错时转向的页面
Query_Badword="'∥and∥select∥update∥chr∥delete∥%20from∥;∥insert∥mid∥master.∥set∥chr(37)∥="
'在这部份定义get非法参数,使用 |
2007年11月29日 星期四 11:13
<%
Const USE_STREAM = 0 '0.不用流(Adodb.Stream)下载 1.用流下载
Const ALLOW_FILE_EXT = "rar,zip,chm,doc,xls,swf,mp3,gif,jpg,jpeg,png,bmp,flv" '允许下载的文件的扩展名，防止源代码被下载
Dim sDownFilePath '下载文件路径
sDownFilePath=trim(Request("file"))
Call DownloadFile(sDownFilePath)
Function DownloadFile(s_DownFilePath)
'判断有没传递文件名
If IsNull(s_DownFilePath) = |
2007年11月07日 星期三 09:04
一、系统没有开启FSO组件
系统没有开启FSO组件.
FSO组件的开启和关闭方法
Dll 文件的注册和注销：
在开始菜单运行
注消FSO组件：RegSvr32 /u %windir%\SYSTEM32\scrrun.dll
启用FSO命令：RegSvr32 %windir%\SYSTEM32\scrrun.dll
二、多次注消、启动后还是出现错误，原因是没权限，不知道怎么造成的，下边提供解决方法
权限出现了问题，打开注册表加入权限!
在 开始-运行中敲入regedit,然后找到HKEY_CLASSES_ROOT\Scripting.FileSystemObject
右击权限，加入everyone,int |
2007年03月03日 星期六 14:39
<%
Set d = CreateObject("Scripting.Dictionary")
d.add "a",-20319
d.add "ai",-20317
d.add "an",-20304
d.add "ang",-20295
d.add "ao",-20292
d.add "ba",-20283
d.add "bai",-20265
d.add "ban",-20257
d.add "bang",-20242
d.add "bao",-20230
d.add "bei",-20051
d.add "ben",-20036
d. |
2007年01月17日 星期三 17:18
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/sqlConnn.asp" -->
<%
Dim MM_SqlConn_STRING
MM_SqlConn_STRING = "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=;DATABASE=aa"
set conn = server.CreateObject("adodb.connection")
conn.open MM_SqlConn_STRING
Dim Command1__flh
Command1__flh = "nm1202"
if(Request("flh") < |
2007年01月17日 星期三 14:44
ASP编程常用的代码
1. ASP与Access数据库连接：
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
2.
|
2007年01月17日 星期三 14:38
记录集rs.open 参数说明RS.OPEN SQL,CONN,A,B
A:
ADOPENFORWARDONLY(=0)
只读,且当前数据记录只能向下移动
ADOPENKEYSET(=1)
只读,当前数据记录可自由移动
ADOPENDYNAMIC(=2)
可读写,当前数据记录可自由移动
ADOPENSTATIC(=3)
可读写,当前数据记录可自由移动,可看到新增记录
B:
ADLOCKREADONLY(=1)
缺省锁定类型，记录集是只读的，不能修改记录
ADLOCKPESSIMISTIC(=2) |
2007年01月08日 星期一 13:36
chr(10)
Replace(Rep_html_word,chr(10),"<br>") |
|
| |
