x1、ASP开始结束符语法：< % %>文件后缀.asp
2、判断语句：判断表单传来的用户名和密码是否正确，并提示
If request("username")="admin" then
Response.write"恭喜，你已经登录成功"
Else
Response.write"对不起，您输入的用户名错误，请返回重输入"
End if
If request("name")="admin" and request("pass")="admin"then
Response.redirect"admin.asp"
Else
Response.redirect"login.asp"
End if
3、循环语句：循环显示6条数据库中的记录
写法1：
for n=1 to 6
response.write rs("title")&"< br>"
if not rs.eof then
exit for
else
rs.movenext
end if
next
写法二：
do while not rs.eof
response.write rs("title")&"< br>"
rs.movenext
loop
4、常用变量转换函数：
Now() 函数返回系统时间
Date() 函数返回当前系统日期.
CStr(int) 函数转化一个表达式为字符串
CInt(string) 将一个表达式转化为数字类型
Trim(request("username")) 函数去掉字符串左右的空格
Left(rs("title"),10) 函数返回字符串左边第length个字符以前的字符（含第length个字符）,一般在限制新闻标题的显示长度的时候用
Len(string) 函数返回字符串的长度.
5、Access数据库连接代码
方法一：
db="mydata.mdb" ‘如果放在目录中，就要写明"database/mydata.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
方法二：
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
db="mydata.mdb" ‘如果放在目录中，就要写明"database/mydata.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
6、Recordset对象操作数据库语法
（1）打开sql语句指定的表中的数据，把这批数据放入rs对象中
取出news表中所有的数据放到rs中
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news"
Rs.Open SqlStr,conn,1,1
取出news表中前6条数据放到rs中
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 6 * from news"
Rs.Open SqlStr,conn,1,1
（2）循环显示6条rs对象中存在的数据，列表显示
不带连接的写法
for n=1 to 6
response.write rs("title")&"< br>"
if not rs.eof then
exit for
else
rs.movenext
end if
next
带连接的写法
for n=1 to 6
response.write "< a href=http://www.360doc.cn/article/show.asp?id=rs("id")>"& left(rs("title"),20)&"< /a>< br>"
if not rs.eof then
exit for
else
rs.movenext
end if
next
（3）向数据库添加一条数据代码
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news"
Rs.Open SqlStr,conn,1,3 ‘注意这里的1,3代表可以写入的打开数据表
Rs.addnew
Rs("title")=trim(request("title"))
Rs("neirong")=request("neirong")
Rs("date")=now()
rs.update ‘真正写入数据库
（4）修改一条记录的代码,通过(2)中的连接传递过来了id数值
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news whereid")
Rs.Open SqlStr,conn,1,3 ‘注意这里的1,3代表可以写入的打开数据表
Rs("title")=trim(request("title"))
Rs("neirong")=request("neirong")
Rs("date")=now()
rs.update ‘真正写入数据库
（5）删除数据库中一条记录，通过连接传递过来了数据得id数值
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news whereid")
Rs.Open SqlStr,conn,1,3 ‘注意这里的1,3代表可以写入的打开数据表
rs.delete ‘删除该条数据
7、标准Sql语句写法
包括取全部记录
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news"
Rs.Open SqlStr,conn,1,1 ‘运行sql语句，把数据提出到rs对象中
选取几条数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 6 * from news"
Rs.Open SqlStr,conn,1,1 ‘运行sql语句，把6条数据提出到rs对象中
选取一条指定表中id字段数值的数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news whereid")
Rs.Open SqlStr,conn,1,1 ‘运行sql语句，把6条数据提出到rs对象中
添加一条表单传过来的数据替换
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="insert into news(title，neirong) values(request("title"), request("neirong"))
修改一条指定表中id字段数值的数据，用表单传过来的数据替换
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="update news set title=’"&request("title")&"’,neirong=’"&request("内容")&"’ whereid")
Rs.Open SqlStr,conn,1,3 ‘运行sql语句，把数据提出到rs对象中
删除一条指定表中id字段数值的数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="delete from news whereid")
Rs.Open SqlStr,conn,1,3 ‘运行sql语句，把数据提出到rs对象中
8、当点击按钮时候表单带着的数据传送到哪个文件,在哪里指定?
< form method="post" action="addsave.asp">
< input type="text" name="title">
< input type="text" name="neirong">
< input type="submit" name="Submit" value="提交">
< /form>
9、表单提交来的数据接收并显示到屏幕上的代码
response.write request("name")
response.write now()
response.write trim(request("name"))
10、利用Application对象作计数器的语法
在网页的头部加入
Application.Lock
Application("counter")=Application("counter") + 1
Application.UnLock
在需要显示计数内容的网页的地方，加入下面的语句
response.write Application("counter")
11、利用Session对象保护后台管理页面admin.asp，防止未登陆用户进入
在网站后台网页admin.asp的头部加入下面的代码,
if session(admin)< >"ok" then
response.redirect"login.asp"
response.end
end if
在网站后台登陆页的密码验证部分标准写法
AdmName=Request.Form("Name")
AdmPass=Request.Form("Pass")
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="Select * from Admin where name=""&AdmName&"' and pass=""&AdmPass&"'"
Rs.Open SqlStr,conn,1,3
if Rs.EOF AND RS.BOF then
Response.Redirect("login.asp")
response.end
else
session("admin")="ok"
Response.Redirect("admin.asp")
response.end
end if
12、分页代码
sql="select……………………省略了sql语句
Set rs=Server.Createobject("ADODB.RECORDSET")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages=30 '定义每页显示的记录数
rs.pageSize=pages '定义每页显示的记录数
allPages=rs.pageCount '计算一共能分多少页
page=Request.QueryString("page")'通过浏览器传递的页数
’if语句属于基本的排错处理
if isEmpty(page) or Cint(page)< 1 then
page=1
elseif Cint(page) >allPages then
page=allPages
end if
rs.AbsolutePage=page
Do while not rs.eof and pages >0
'这里输出你要的内容………………
pages=pages - 1
rs.MoveNext
Loop
else
Response.Write("数据库暂无内容！")
End if
rs.Close
Set rs=Nothing
分页页码连接和跳转页码程序
< form Action="v3.asp" Method="GET">
< %
If Page< >1 Then
Response.Write "< A HREF=?Page=1>第一页< /A>"
Response.Write "< A HREF=?Page=" & (Page-1) & ">上一页< /A>"
End If
If Page< >rs.PageCount Then
Response.Write "< A HREF=?Page=" & (Page+1) & ">下一页< /A>"
Response.Write "< A HREF=?Page=" & rs.PageCount & ">最后一页< /A>"
End If
%>
< p>输入页数：< input TYPE="TEXT" Name="Page" SIZE="3">页数:< font COLOR="Red">< %=Page%>/< %=rs.PageCount%>< /font>
< /p>
< /form>
13、分行列显示图片和产品名称的代码（4列x3行=12个）
< %
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 12 * from myproduct"
Rs.Open SqlStr,conn,1,1
i=1
%>
< table border="1" cellspacing="0" sellpadding="0">
< tr>
< %
do while not rs.eof
%>
< td>
< img src="http://www.360doc.cn/article/< %=rs("imgurl")%>">< br>
< %=rs("productname")%>
< /td>
< % if i mod 4=0 then response.write"< /tr>< tr>"
i=i+1
rs.movenext
loop
rs.close
%>
< /tr>
< /table>
14、ASP数据库连接之ACCESS-SQLSERVER
< %
IsSqlData=0 定义数据库类别，0为Access数据库，1为SQL数据库
If IsSqlData=0 Then
Access数据库
datapath ="data/" 数据库目录的相对路径
datafile ="data.mdb" 数据库的文件名
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&datapath&""&datafile&"")
Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
Else
SQL数据库
SqlLocalName ="(local)" 连接IP [ 本地用 (local) 外地用IP ]
SqlUsername ="sa" 用户名
SqlPassword ="1" 用户密码
SqlDatabaseName="data" 数据库名
ConnStr="Provider=Sqloledb;User; Password=" & SqlPassword & "; Initial Catalog=" & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
END IF
On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn=Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
On Error GoTo 0
%>
15.用下拉列表框的下拉操作读库
获取数据用request.QueryString("fenleiid")
16.文本框的特效
onMouseOver="this.focus()" value="请输入关键字" size="13" maxlength="50">
17.验证是否为空，鼠标脱离文本框读库
<%
on error resume next
stucode=trim(request("stucode"))
if stucode<>"" then
conn.open connstr
strSql="Select * From sheet1 Where stcode=""&trim(stucode)&"'"
'response.Write strSql
set rs=conn.execute(strSql)
if rs.eof then
%>
<%
end if
end if
%>
value="<%=rs("username")%>"<%end if%>>
value="<%=rs("tel1")%>"<%end if%>>
value="<%=rs("tel2")%>"<%end if%>>
18。图片的上传方法
1、在数据添加表单中加入用来保存上传的图片地址和文件的输入框，记下表单名称和这个输入框的名称，以备后面修改时候用。
2、在需要调用上传的输入框后面加上
3、修改upload.asp,找到其中的<%if request.QueryString("filename")<>"" then response.write ""%>；修改其中的form1.textfield6为， 上面第一条中记录的表单名和输入框名称。
4、修改upfile.asp,找到其中第5行formPath="/TempPic"，然后修改=号后面的上传图片保存目录名称就ok了
19。连续不断的滚动