<%
1. '不要显示修改的ID号 容易被 利用 更改ID部分 任意文件删除!!(建立一个关系表,设置删除权限.)
注意数据操作部分放在文件头部或文件开始处有区别,如果出现错误时可试试.
'数据库无法写入数据,而又无任何错误提示...可能是没有权限.
2. 'SQL 不支持同类型数据转换
3. 'SQL 不支持如此的变量 a = "../"
4. '读取SQL数据库内数据的时候 不要随便空格换行容易名称出错
5. '例子( select x1,x2 from tableX ) 例子中仅从表 tableX 中返回 x1,x2 的值,
'如果下面的程序试图获取其他的数据则返回( 所需数据集无法找到的错误! )
6. order by xxx ASC 以XXX为顺序 从小到大排列.'参与排序的字段值不能为空
order by xxx DESC 以XXX为顺序 从大到小排列.'参与排序的字段值不能为空.
7. Response.Write "<Script Language=JavaScript>alert('内容');</Script>" '弹出对话框
8. Session("XXX") = "yyy" '设置 Session:
Session.Contents.Remove("XXX") '删除 Session:
9. Response.Write '输入结果:
Response.Redirect("XX.htm") '重定向页面:
10. Response.Buffer=FALSE '关闭缓冲模式
<!--#include file="XX.asp" --> '包含文件:
'注意!!当要包含其他的文件时如果文件头部有脚本,需要把被包含文件头部的脚本声明去掉,
'如 @LANGUAGE="VBSCRIPT" CODEPAGE="936"
'时间相关函数-短日期输出
FormatDateTime(Rs0.Fields.Item("ProTime").Value,vbShortDate)
11.
Request.ServerVariables("REMOTE_ADDR") '当前客户端的IP地址
show.asp?XX=hello&YY=world '向其他页面传递参数:
'接收其他页面传递来的参数:
Request.QueryString("XX") 'XX的值为: hello
Request.QueryString("YY") 'YY的值为: world
12. Request.Form("xxx") '请求的表格中名字为xxx的值
<input type="hidden" name="xxx" value="yyy"> '可用于判断是否点击了提交表单.
13. '断开数据库连接的函式 CloseDatabase()
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
'关闭已使用完的数据库连接
RS.Close()
Set Rs = Nothing
Call CloseDatabase()
Conn.CommandTimeOut = 0 '设置数据库连接超时为0.
Server.ScriptTimeout=999 '设置脚本超时为999秒.
14.
' *** 创建数据库连接(添加记录)
set rs=server.createobject("adodb.recordset")
sql="select * from wen"
rs.open sql,conn,1,3
Rs.addNew '如果只是读取记录就不必加 "Rs.addNew"
Rs("fTitle")=cstr(Request.Form("fTitle"))
Rs("fID")=cstr(Request.Form("fID"))
Rs("fmoney")=cstr(Request.Form("fmoney"))
Rs("ctPhone")=cstr(Request.Form("ctPhone"))
Rs("ctEmail")=cstr(Request.Form("ctEmail"))
Rs("ctQQ")=cstr(Request.Form("ctQQ"))
Rs("Fusername")=cstr(Session("MM_username"))
Rs("Netname")=cstr(Session("MM_netname"))
Rs("ctPerson")=cstr(Request.Form("ctPerson"))
Rs("ctAddress")=cstr(Request.Form("ctAddress"))
Rs("fbody")=cstr(Request.Form("fbody"))
Rs("Ftime")=date()
Rs("Fip")=Request.ServerVariables("REMOTE_ADDR")
rs.update '更新记录
rs.close '暂时关闭数据通道.以后可直接用rs.open ***** 操作.
set rs=nothing '断开数据通道.
call CloseDatabase()
15。
' *** (修改记录)
update 表名 set 列名 = '值' where 判断条件
' *** (插入新记录)
insert into 表名(列名) values('值')
' *** (删除记录)
delete from 表名 where 判断条件
16
onmouseover="" '鼠标移动到指定目标时的事件。
onmouseout="" '鼠标移动并离开指定目标时的事件。
onSubmit= "" '提交表格后的事件
<IMG src="http://home/index.files/banners.gif" onerror="javascript:this.src='替换的图片.gif'">
'这个最方便,src放上你要的远程路径图片,onerror放上如果图片不存在后显示的图片
17. 'fso删除文件
set fs=server.CreateObject("Scripting.FileSystemObject")
'如果不存在文件夹,创建相应的文件夹
filepath=server.MapPath("..") & "\boss\"
'删除文件夹下面所有的文件
set fsCollection=fs.GetFolder(filepath).Files
for each fsFile in fsCollection
fs.DeleteFile filepath & fsFile.name, true
next
response.write "/boss/ 所有文件删除成功!<br>"
'fso读取文件
function fsow(filename)
set mfo=Server.CreateObject("Scripting.FileSystemObject")
set rtf=mfo.OpenTextFile(server.mappath(filename),1)
body=rtf.readall
fsow=body
end function
'fso写入文件
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(./),true) '参数true表示覆盖已存在的文件
fout.WriteLine okfile
fout.close
18.
map = server.mappath("./") '将当前的虚拟地址转换成真实地址
replace(保存的对象,"被替换的内容","用于替换的内容") '字符替换
HTML 标签系列
1.
<base target=_blank> </base>'可区域性选择链接打开页面的类型
<a href="javascript:history.back()">返回上一页</a>
window.open("http://wpa.qq.com/msgrd?V=1&Uin="_blank");
'name=表单名称; method=传递方法; action=要发送的目标; onsubmit=提交后的事件
<form name="form1" method="post" action="piliang_Save.asp?Type=update" onSubmit="return checkdel('批量生成文件!该操作将占用服务器一定资源!')">
style="margin-left: 50px;" '表格之间的间距
1. '不要显示修改的ID号 容易被 利用 更改ID部分 任意文件删除!!(建立一个关系表,设置删除权限.)
注意数据操作部分放在文件头部或文件开始处有区别,如果出现错误时可试试.
'数据库无法写入数据,而又无任何错误提示...可能是没有权限.
2. 'SQL 不支持同类型数据转换
3. 'SQL 不支持如此的变量 a = "../"
4. '读取SQL数据库内数据的时候 不要随便空格换行容易名称出错
5. '例子( select x1,x2 from tableX ) 例子中仅从表 tableX 中返回 x1,x2 的值,
'如果下面的程序试图获取其他的数据则返回( 所需数据集无法找到的错误! )
6. order by xxx ASC 以XXX为顺序 从小到大排列.'参与排序的字段值不能为空
order by xxx DESC 以XXX为顺序 从大到小排列.'参与排序的字段值不能为空.
7. Response.Write "<Script Language=JavaScript>alert('内容');</Script>" '弹出对话框
8. Session("XXX") = "yyy" '设置 Session:
Session.Contents.Remove("XXX") '删除 Session:
9. Response.Write '输入结果:
Response.Redirect("XX.htm") '重定向页面:
10. Response.Buffer=FALSE '关闭缓冲模式
<!--#include file="XX.asp" --> '包含文件:
'注意!!当要包含其他的文件时如果文件头部有脚本,需要把被包含文件头部的脚本声明去掉,
'如 @LANGUAGE="VBSCRIPT" CODEPAGE="936"
'时间相关函数-短日期输出
FormatDateTime(Rs0.Fields.Item("ProTime").Value,vbShortDate)
11.
Request.ServerVariables("REMOTE_ADDR") '当前客户端的IP地址
show.asp?XX=hello&YY=world '向其他页面传递参数:
'接收其他页面传递来的参数:
Request.QueryString("XX") 'XX的值为: hello
Request.QueryString("YY") 'YY的值为: world
12. Request.Form("xxx") '请求的表格中名字为xxx的值
<input type="hidden" name="xxx" value="yyy"> '可用于判断是否点击了提交表单.
13. '断开数据库连接的函式 CloseDatabase()
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
'关闭已使用完的数据库连接
RS.Close()
Set Rs = Nothing
Call CloseDatabase()
Conn.CommandTimeOut = 0 '设置数据库连接超时为0.
Server.ScriptTimeout=999 '设置脚本超时为999秒.
14.
' *** 创建数据库连接(添加记录)
set rs=server.createobject("adodb.recordset")
sql="select * from wen"
rs.open sql,conn,1,3
Rs.addNew '如果只是读取记录就不必加 "Rs.addNew"
Rs("fTitle")=cstr(Request.Form("fTitle"))
Rs("fID")=cstr(Request.Form("fID"))
Rs("fmoney")=cstr(Request.Form("fmoney"))
Rs("ctPhone")=cstr(Request.Form("ctPhone"))
Rs("ctEmail")=cstr(Request.Form("ctEmail"))
Rs("ctQQ")=cstr(Request.Form("ctQQ"))
Rs("Fusername")=cstr(Session("MM_username"))
Rs("Netname")=cstr(Session("MM_netname"))
Rs("ctPerson")=cstr(Request.Form("ctPerson"))
Rs("ctAddress")=cstr(Request.Form("ctAddress"))
Rs("fbody")=cstr(Request.Form("fbody"))
Rs("Ftime")=date()
Rs("Fip")=Request.ServerVariables("REMOTE_ADDR")
rs.update '更新记录
rs.close '暂时关闭数据通道.以后可直接用rs.open ***** 操作.
set rs=nothing '断开数据通道.
call CloseDatabase()
15。
' *** (修改记录)
update 表名 set 列名 = '值' where 判断条件
' *** (插入新记录)
insert into 表名(列名) values('值')
' *** (删除记录)
delete from 表名 where 判断条件
16
onmouseover="" '鼠标移动到指定目标时的事件。
onmouseout="" '鼠标移动并离开指定目标时的事件。
onSubmit= "" '提交表格后的事件
<IMG src="http://home/index.files/banners.gif" onerror="javascript:this.src='替换的图片.gif'">
'这个最方便,src放上你要的远程路径图片,onerror放上如果图片不存在后显示的图片
17. 'fso删除文件
set fs=server.CreateObject("Scripting.FileSystemObject")
'如果不存在文件夹,创建相应的文件夹
filepath=server.MapPath("..") & "\boss\"
'删除文件夹下面所有的文件
set fsCollection=fs.GetFolder(filepath).Files
for each fsFile in fsCollection
fs.DeleteFile filepath & fsFile.name, true
next
response.write "/boss/ 所有文件删除成功!<br>"
'fso读取文件
function fsow(filename)
set mfo=Server.CreateObject("Scripting.FileSystemObject")
set rtf=mfo.OpenTextFile(server.mappath(filename),1)
body=rtf.readall
fsow=body
end function
'fso写入文件
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(./),true) '参数true表示覆盖已存在的文件
fout.WriteLine okfile
fout.close
18.
map = server.mappath("./") '将当前的虚拟地址转换成真实地址
replace(保存的对象,"被替换的内容","用于替换的内容") '字符替换
HTML 标签系列
1.
<base target=_blank> </base>'可区域性选择链接打开页面的类型
<a href="javascript:history.back()">返回上一页</a>
window.open("http://wpa.qq.com/msgrd?V=1&Uin="_blank");
'name=表单名称; method=传递方法; action=要发送的目标; onsubmit=提交后的事件
<form name="form1" method="post" action="piliang_Save.asp?Type=update" onSubmit="return checkdel('批量生成文件!该操作将占用服务器一定资源!')">
style="margin-left: 50px;" '表格之间的间距