ASP里关于单行注释的问题

，<! 这是单行注释 !> 这个注释是不对的。，<! 这是单行注释 !> 出现在了<%%>外部，在<%%>外的注释应该用HTML注释吧。HTML的注释应该是<!-- 注释内容 -->这样的格式。

ASP的注释应该用VB的。用' 这个符号。

<%

=now() '这是注释

%>

<%

set conn=serverCreateObject("adodbconnection") '设置数据库连接对象

connOpen "Provider=MicrosoftJetOLEDB40; Data Source="&servermappath("123mdb") ‘连接数据库

set rs=serverCreateObject("adodbrecordset") ’设置记录集

rsopen "delete from tushuxinxi where id="&Trim(RequestQueryString("id")),conn,1,3 打开记录集， "delete from tushuxinxi where id="&Trim(RequestQueryString("id"))这一句是SQL语句，由数据库执行，delete是删除 *** 作，意思是从 tushuxinxi 这个表里删除id值为RequestQueryString("id")的这一条记录

%>

<%

a=Trim(RequestForm("shuming")) ‘获取从表单传过来的值，也可以直接写成a=RequestForm("shuming") ，加不加Trim没什么影响，下面都一样，不一一解释

b=Trim(RequestForm("fenlei"))

c=Trim(RequestForm("jiage"))

d=Trim(RequestForm("shuliang"))

e=Trim(RequestForm("chubanshe"))

f=Trim(RequestForm("nian"))

g=Trim(RequestForm("yue"))

h=Trim(RequestForm("ri"))

dim conn ’定义变量conn

set conn=serverCreateObject("adodbconnection") ‘跟前面一样

connopen "driver={microsoft access driver (mdb)};dbq="&servermappath("123mdb") ‘跟前面一样

set rs=serverCreateObject("adodbrecordset") ‘跟前面一样

rsopen "select from tushuxinxi",conn,1,3 ‘跟前面一样，只不过select是执行查询 *** 作

rsaddnew ’记录集增加一条新记录

rs("bookname")=a ‘设置要增加的记录的值

rs("booktype")=b

rs("bookmoney")=c

rs("num")=d

rs("publishing")=e

rs("nian")=f

rs("yue")=g

rs("ri")=h

rsupdate ’执行更新 *** 作，即上面的增加一条记录

‘顺便说一下，其实这句也可以这么写：sql="insert into tushuxinxi (字段名)values('"& 变量值 &“‘)"

connexecute(sql)

%>

<%

bookname=Trim(RequestForm("name")) ’获取从表单传过来的值name，下面一样，不一一解释

booktype=Trim(RequestForm("fl"))

publishing=Trim(RequestForm("cbs"))

money1=trim(RequestForm("jg1"))

money2=trim(RequestForm("jg2"))

set conn=serverCreateObject("adodbconnection") ’下面这几句上面也解释过了

connOpen "Provider=MicrosoftJetOLEDB40; Data Source="&servermappath("123mdb")

set rs=serverCreateObject("adodbrecordset")

dim sql,myrecordset ‘定义变量

sql="select from tushuxinxi where 1 " ’这句有点问题吧where后面有错，select语句执行查询 *** 作，上面也说过了

if bookname<>"" then ‘如果bookname不为空，则执行下面的

sql=sql+"and bookname like '%"&bookname&"%'" ’这是sql语句，并且和上面的一句连起来了

elseif booktype<>"" then ‘否则判断booktype是否为空

sql=sql+"and booktype ='"&booktype&"'" ’上面解释了

elseif publishing<>"" then ‘哎，这么多的if嵌套循环，不解释，懂上面一句，下面应该都懂····不过没办法，毕竟是ASP

sql=sql+"and publishing like '%"&publishing&"%'"

elseif money1<>""&money2<>"" then

sql=sql+"and bookmoney>="&money1&" and bookmoney<="&money2&""

end if ‘ASP里面的if语句要end if来结束，这一点要注意

rsopen sql,conn,1,3 ’执行sql语句，并打开记录集

set myrecordset=connexecute(sql) ‘执行sql语句，这里有点问题，上面已经打开记录集了，并且已经查询过了，这里又查询干嘛？

%>

<table width="592" border="1" align="center"> '这些table,td,tr什么的都是html代码，页面显示就是表格

<tr>

<td width="73" height="34" nowrap="nowrap"><div align="center">书名</div></td>

<td width="140" nowrap="nowrap"> <div align="center">分类</div></td>

<td width="73" nowrap="nowrap"><div align="center">出版社</div></td>

<td width="59"><div align="center">价格</div></td>

<td width="81"><div align="center">出版日期</div></td>

</tr>

<%

do while not myrecordseteof ’do while循环语句，从记录集里循环显示找到的记录

%>

<tr>

<td><%=myrecordset("bookname")%></td> ‘=myrecordset("bookname")这句的意思就是从当前记录中挑出bookname显示出来，下面都一样，不一一解释

<td><%=myrecordset("booktype")%></td>

<td><%=myrecordset("publishing")%></td>

<td><%=myrecordset("bookmoney")%></td>

<td><%=myrecordset("nian")%>-<%=myrecordset("yue")%>-<%=myrecordset("ri")%></td>

</tr>

<%

myrecordsetmovenext ’记录集的指针移到下一条

loop ‘如果do while的循环结束，就结束，执行下面的语句

myrecordsetclose ’关闭记录集

connclose ‘关闭数据库连接

set myrecordset=nothing ’设置变量为空

set conn=nothing ‘设置变量为空

’花了我十分多钟才解释完···好辛苦啊····

%>

直接删除。

或者找到topasp

是html代码的就用用 <!--注释的内容-->

如果是asp语句前面每行都加单引号'

可以动手试下。

我们提供有偿程序定制指导服务，如需可百度HI我。

有注释

<%

dim

admin

'定义变量admin

dim

password

'定义变量password

admin=request("admin")

'截取上个页面传递的admin值,赋值于admin

password=request("password")

'截取上个页面传递的password值,赋值于password

if

admin="sq"

and

password="sq"

then

'如果admin和password的值皆为sq,则

session("sq")=true

'定义session会话,保存sq变量的值为true

responseredirect("administerasp")

'并重定向到administerasp页面

else

'否则(即不满足if条件)

session("password")=false

'定义session会话,保存sq变量的值为false

responseredirect("indexasp")

'并重定向到indexasp登陆页面

end

if

'结束if语句

%>

username=ReplaceBadChar(trim(RequestForm("username"))) 获取表单的username值赋值给变量username userpass=MD5(ReplaceBadChar(trim(RequestForm("userpass")))) 获取表单的userpass值赋值给变量userpass if username<>"" and userpass<>"" then 判断username和userpass是否不为空 不为空时执行下面语句 exec_index="select from [user] where user_name='"&username&"' and user_pass='"&userpass&"'" set rs=servercreateobject("adodbrecordset") rsopen exec_index,conn,1,3 以上三句为在库中查询登录用户的信息 if not rseof then 判断是否存在此登录用户 存在时执行下面语句 userip = RequestServerVariables(">

以上就是关于ASP里关于单行注释的问题全部的内容，包括:ASP里关于单行注释的问题、求ASP注释、在asp中,该如何注释一句代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！