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=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(r
equest("title"))
Rs("neirong")=request("neirong")
Rs("date")=now()?
rs.update???????? ‘真正写入数据库
(4)修改一条记录的代码,通过(2)中的连接传递过来了id数值
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news where id="&;request("id")
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 where id="&;request("id")
Rs.Open SqlStr,conn,1,3?? ‘注意这里的1,3代表可以写入的打开数据表
rs.delet