ASP课堂上学到的程序设计都是按照语法和对象来一点一点的学习的到最后编程的时候新手根本想不出来要怎么来组合才能完成一个模块下面把这些语法按照程序员常用的模块方式组合起来请大家按照模块来记忆然后按照模块来应用不一定要一个一个字母的背下来关键是用到这些模块的时候能准确的拿出来安上去！
注意下面的标点符号全部都为英文中的半角符号如果写成了全角的就一定运行不起来了切忌切忌……
常用写法
()ASP开始结束符语法<%%>文件后缀asp
()Requestform("title")’获取表单中的一个输入框name叫title的值
()Requestquerystring("title")’获取连接中的一个参数title=后面的值
()dimstr
str="我爱你"
responsewrite(str)’向屏幕输出
()responsewrite"ok程序运行到这里了！"
()sql="select*fromnews"
responsewritesql
’调试和查看sql语句写法是否正确的语句常用到
()ResponseRedirect("loginasp")’跳转到另外一个页面
()responseredirect("adminasp")’转到后台
()Responseend’程序输出截至不显示该条语句下面的内容了
()ResponseWrite("<script>alert(’???！’)</script>")’弹出提示窗口
判断语句
()判断表单传来的用户名和密码是否正确并提示
Ifrequest("username")="admin"then
Responsewrite"恭喜你已经登录成功"
Else
Responsewrite"对不起您输入的用户名错误请返回重输入"
Endif
()同时判定用户名和密码都正确就转入到后台否则退回到从新输入页面
Ifrequest("name")="admin"andrequest("pass")="admin"then
Responseredirect"adminasp"
Else
Responseredirect"loginasp"
Endif
()变量值和字符串值合起来用&
a="我"
b="爱"
c="你"
responsewritea&b&c&"妈妈"
循环语句循环显示条数据库中的记录
()写法
dowhilenotrseof
responsewrite"<br><fontcolor=#>"&rs("title")&"</font><br>"
rsmovenext
loop
()写法二
forn=to
responsewriters("title")&"<br>"
ifrseofthen
exitfor’跳出for循环
else
rsmovenext’记录集下移一条
endif
next
常用变量转换函数
Now()函数返回系统时间
Date()函数返回当前系统日期
CStr(int)函数转化一个表达式为字符串
CInt(string)将一个表达式转化为数字类型
Trim(request("username"))函数去掉字符串左右的空格
Left(rs("title"))&""函数返回字符串左边第个字符以前的字符（含第length个字符）一般在限制新闻标题的显示长度的时候用
Len(string)函数返回字符串的长度中文字符长度也计为一
requestserverVariables("remote_host")’取得来访问的IP
mid(str起始字符[读取长度])截取字符串中间子字符串
right(strnlen)从右边起截取nlen长度子字符串
Lcase(str)字符串转成小写
Ucase(str)字符串转成大写
Ltrim(str)去除字符串左侧空格
Rtrim(str)去除字符串右侧空格
replace(str查找字符串替代字符串[起始字符替代次数比较方法])
替换字符串
注默认值起始字符替代次数不限比较方法区分大小写（）
InStr([起始字符]str查找字符串[比较方法])检测是否包含子字符串可选参数需同时选返回起始位置
Access数据库连接代码
()方法一
db="mydatamdb"’如果放在目录中就要写明"database/mydatamdb"
Setconn=ServerCreateObject("ADODBConnection")
cServerMapPath(db)
connOpenconnstr
()方法二
’如果你的服务器采用较老版本Access驱动请用下面连接方法
db="mydatamdb"’如果放在目录中就要写明"database/mydatamdb"
Setconn=ServerCreateObject("ADODBConnection")
c&ServerMapPath(db)
connOpenconnstr
标准的用Sql语句和asp操作数据的常用写法
包括取全部记录
SetRs=ServerCreateObject("ADODBRecordSet")
SqlStr="select*fromnews"
RsOpenSqlStrconn’运行sql语句把数据提出到rs对象中
选取几条数据
SetRs=ServerCreateObject("ADODBRecordSet")
SqlStr="selecttop*fromnews"
RsOpenSqlStrconn’运行sql语句把条数据提出到rs对象中
选取一条指定表中id字段数值的数据
SetRs=ServerCreateObject("ADODBRecordSet")
SqlStr="select*fromnewswhereid="&request("id")
RsOpenSqlStrconn’运行sql语句把条数据提出到rs对象中
获取一条表单传过来的数据然后加入到一个表当中
dimabcd
a=requestform("a")
b=request("b")
c=request("c")
d=request("d")
sqlstr="insertintohuiyuanbiao(yonghumingmimawentidaan)values(’"&a&"’’"&b&"’’"&c&"’’"&d&"’)"
connexecutesqlstr
responsewrite"恭喜新数据加入成功！"
修改一条指定表中id字段数值的数据用表单传过来的数据替换
dimade
a=request("id")
d=requestform("d")
e=requestform("e")
sqlstr="updatehuiyuanbiaosetyonghuming=’"&d&"’mima=’"&e&"’whereid="&a
responsewritesqlstr
connexecutesqlstr
responsewrite"恭喜数据修改成功!"
删除一条指定表中id字段数值的数据
dima
a=request("delid")
sqlstr="deletefromhuiyuanbiaowhereid="&a
connexecutesqlstr
responsewrite"恭喜删除成功!"
用Recordset对象和asp操作数据库的常用写法
()用sql语句取出news表中所有的数据放到rs中按照数据库默认排序
SetRs=ServerCreateObject("ADODBRecordSet")
SqlStr="select*fromnews"
RsOpenSqlStrconn
()取出news表中前条数据放到rs中按照数据库默认排序方式
SetRs=ServerCreateObject("ADODBRecordSet")
SqlStr="selecttop*fromnews"
RsOpenSqlStrconn
()循环显示条rs对象中存在的数据列表显示
不带连接的写法
forn=to
responsewriters("title")&"<br>"
ifrseofthen
exitfor
else
rsmovenext
endif
next
带连接的写法
forn=to
responsewrite"<ahref=showasp?id=rs("id")>"&left(rs("title"))&"</a><br>"
ifrseofthen
exitfor
else
rsmovenext
endif
next
()向数据库添加一条数据代码
SetRs=ServerCreateObject("ADODBRecordSet")
SqlStr="select*fromnews"
RsOpenSqlStrconn’注意这里的代表可以写入的打开数据表
Rsaddnew
Rs("title")=trim(requestform("title"))
Rs("neirong")=requestform("neirong")
Rs("date")=now()
rsupdate’真正写入数据库
()修改一条记录的代码通过()中的连接传递过来了id数值
SetRs=ServerCreateObject("ADODBRecordSet")
SqlStr="select*fromnewswhereid="&request("id")
RsOpenSqlStrconn’注意这里的代表可以写入的打开数据表
Rs("title")=trim(request("title"))
Rs("neirong")=request("neirong")
Rs("date")=now()
rsupdate’真正写入数据库
()删除数据库中一条记录通过连接传递过来了数据得id数值
SetRs=ServerCreateObject("ADODBRecordSet")
SqlStr="select*fromnewswhereid="&request("id")
RsOpenSqlStrconn’注意这里的代表可以写入的打开数据表
rsdelete’删除该条数据
当点击按钮时候表单带着的数据传送到哪个文件在哪里指定?
<formmethod="post"action="addsaveasp">
<inputtype="text"name="a">
<inputtype="text"name="b">
<inputtype="submit"name="Submit"value="提交">
</form>
表单提交来的数据接收并显示到屏幕上的代码
responsewriterequestform("a")
responsewritenow()
responsewritetrim(requestform("b"))
利用Application对象作计数器的语法
在网页的头部加入
ApplicationLock
Application("counter")=Application("counter")+
ApplicationUnLock
在需要显示计数内容的网页的地方加入下面的语句
responsewriteApplication("counter")
