学好ASP编程必会的代码
ASP课堂上学到的程序设计,都是按照语法和对象来一点一点的学习的,到最后编程的时候,新手根本想不出来要怎么来组合才能完成一个模块,下面把这些语法按照程序员常用的模块方式组合起来,请大家按照模块来记忆,然后按照模块来应用,不一定要一个一个字母的背下来,关键是用到这些模块的时候能准确的,拿出来,安上去!
注意下面的标点符号,全部都为英文中的半角符号,如果写成了全角的就一定运行不起来了,切忌切忌……
1、常用写法
(1)ASP开始结束符语法:<% %> 文件后缀.asp
(2)Request.form("title") '获取表单中的一个输入框name叫title的值
(3)Request.querystring("title") '获取连接中的一个参数title=后面的值
(4)dim str
str="我爱你"
response.write(str) '向屏幕输出
(5) response.write "ok 程序运行到这里了!"
(6) sql="select * from news"
response.write sql
'调试和查看sql语句写法是否正确的语句常用到
(7)Response.Redirect("login.asp") '跳转到另外一个页面
(8)response.redirect("admin.asp") '转到后台
(9)Response.end '程序输出截至,不显示该条语句下面的内容了
(10)Response.Write("<script>alert('???!')</script>")'弹出提示窗口
2、判断语句
(1)判断表单传来的用户名和密码是否正确,并提示
If request("username")="admin" then
Response.write"恭喜,你已经登录成功"
Else
Response.write"对不起,您输入的用户名错误,请返回重输入"
End if
(2)同时判定用户名和密码都正确就转入到后台,否则退回到从新输入页面
If request("name")="admin" and request("pass")="admin" then
Response.redirect"admin.asp"
Else
Response.redirect"login.asp"
End if
(3)变量值和字符串值合起来用&
a="我"
b="爱"
c="你"
response.write a&b&c&"妈妈"
3、循环语句:循环显示6条数据库中的记录
(1)写法1:
do while not rs.eof
response.write "<br><font color=#000000>"&rs("title")&"</font><br>"
rs.movenext
loop
(2)写法二:
for n=1 to 6
response.write rs("title")&"<br>"
if rs.eof then
exit for '跳出for循环
else
&nb
相关文档:
要用ASP来操作SQLite数据库,前提条件是在服务器上得安装SQLite的ODBC驱动程序,可到这个站点上下载安装:http://www.ch-werner.de/sqliteodbc/,安装好后就可以像使用Access一样来使用SQLite了!下边是一个SQLite数据库结构:
引用内容
Create TABLE admin(username text,age integer);
我们再来用ASP演示下如何对SQLi ......
Sub CreateAccessDB(DBToCreate)
Dim catNewDB ' As ADOX.Catalog
Set catNewDB = Server.CreateObject("ADOX.Catalog")
catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & se ......
本文链接:http://www.oversteper.com/wprogram/asp/829.html
循环语句的概念
循环语句是指重复执行的语句,可分为三类:
1,当条件变为假之前重复执行语句;
2,当条件变为真之前重复执行语句;
3,按照指定的次数重复执行语句。
VBscript 的循环语句
<1> do ... loop 直到条件为真时执行循环;
< ......
转自: http://www.cnblogs.com/rentj1/archive/2009/02/23/1396187.html
1 新建类库MyTestDLL
2 右击项目“MyTestDLL”-》属性-》生成-》勾选“为COM互操作注册”
3 打开 AssemblyInfo.cs 文件 修改 [assembly: ComVisible(true)]
4 打开Visual Sutdio 2008 的命令提示行工具输入guidgen.exe 选择D ......
Asp代码:
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg")
obj.LoadImgMarkPic server.mappath("blend.bmp")
obj.Quality=75
obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo
if strError<>"" then
......