ASP学习笔记大奉献!

yangbin210

浏览: 85198 次
性别:
来自: 山东

最近访客更多访客>>

刘赛勋

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

ASP SQL Server SQL 脚本 VBScript

<%
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 '关闭缓冲模式

 '包含文件:

'注意！！当要包含其他的文件时如果文件头部有脚本,需要把被包含文件头部的脚本声明去掉,
'如 @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;" '表格之间的间距

分享到：