Question

谁能帮我解释一下这段ASP代码？

<%
Dim a
Action = Request.QueryString("Action")
a = 1
Response.Write(Action)
Select Case Action
Case "Reg"
Response.Write("123")
Call Reg
Case "Logined"
Call Logined
Case "FormSubmit"
Call FormSubmit
Case Else
Call Main
End Select
Sub Reg
Response.Write("*****")
%>

<form id="Reg" name="Reg" method="post" action="index.asp?Action=FormSubmit">
<label>
用户名：
<input type="text" name="username" id="username" />
<br />
密码：  </label>
<label>
<input type="password" name="password" id="password" />
</label>
<p>
<label>
<input type="submit" name="button" id="button" value="注册" />
</label>
</p>
</form>

<a href="index.asp">登陆</a>     <a href="index.asp?Action=Reg">注册</a>

<%
End Sub
Sub FormSubmit
Dim username,password
username = Request.Form("username")
password = Request.Form("password")

sql="select * from user "
Set rsUserList = Server.CreateObject("Adodb.RecordSet")
rsUserList.Open sql, Conn, 1, 3
rsUserList.addnew
rsUserList("username") = username
rsUserList("password") = password
rsUserList.update
rsUserList.close
set rsUserList = nothing
Response.Write("注册成功！！")
Response.Redirect("index.asp")
End Sub

Sub Main

sql="select * from user "
Set rsUserList = Server.CreateObject("Adodb.RecordSet")
rsUserList.Open sql, Conn, 1, 1
Response.Write(rsUserList("username"))
Response.Write("*****")
%>

<form id="Login" name="Login" method="get" action="index.asp?Action=Logined">
<label>
用户名：
<input type="text" name="username" id="username" />
<br />
密码：  </label>
<label>
<input type="password" name="password" id="password" />
</label>
<p>
<label>
<input type="submit" name="button" id="button" value="登陆" />
</label>
</p>
</form>

<a href="index.asp">登陆</a>     <a href="index.asp?Action=Reg">注册</a>

<%
End Sub
Sub Logined
Dim username,password

username = Request.Form("username")
password = Request.Form("password")

sql="select * from user where username = '"+username+"' and password = '"+password+"' "
Set rsUserList = Server.CreateObject("Adodb.RecordSet")
rsUserList.Open sql, Conn, 1, 1
If rsUserList.eof and rsUserList.bof then
Response.Write("无此用户存在")
rsUserList.close
set rsUserList = nothing
else
Response.Write(rsUserList("username"))
%>
<%
rsUserList.close
set rsUserList = nothing
End If
End Sub
%>

</body>
</html>

Answer 1

<ul class="news">
//套用样式news
<%
Set rs = server.CreateObject("adodb.recordset")
//创建一个数据集的对象实例，此时数据集是空的
sql = "select top 8 * from pf_news order by pf_news_order desc"

//sql查询语句，返回表pf_news里前8条数据，条件是按pf_news_order 降序排列
rs.Open sql, conn, 1, 1
//连接数据
Do While Not rs.EOF
//循环到rs数据集末尾为止
Set rsc = server.CreateObject("adodb.recordset")
//再创建一个数据集实例rsc
sql = "select * from pf_news_category where id = "&rs("pf_news_category")&""
//sql查询返回指定ID条件的记录，参数pf_news_category是上面的查询返回数据集里的数据。
rsc.Open sql, conn, 1, 1

//打开连接rsc
%>
//
<li><span class="float_right"><%=formatdatetime(rs("pf_news_date"),2)%></span>
//这里显示的是一个日期，是上面的查询语句返回的数据哦

[<a href="news_category.asp?id=<%=rsc("ID")%>><%=rsc("pf_news_category_name")%></a>]
//这里是一个超链接参数id与rsc也是上面查询到数据，其中rsc是超链接的名字

<a href="news_view.asp?id=<%=rs("ID")%>" title="<%=rs("pf_news_name")%>"><%=left(rs("pf_news_name"),30)%></a> </li>
//这里依旧是一个超链接，只是超链接多了一个title属性，名字是绑定的pf_news_name的值经过//left函数处理后返回的值
<%
rsc.Close
//最后关闭连接rsc
Set rsc = Nothing
//使对象清空
rs.movenext
//rs指向下一条数据，因为这里是循环么，呵呵。
Loop
rs.Close
//关闭连接rs
Set rs = Nothing
%>
</ul>
还有什么疑问么？ 希望可以帮到你.!

Answer 2

哇靠，我刚刚回答过一次，你还真的全出来啊。这个没法解释，太多了

Answer 3

哦，太长了，大概是注册的

Answer 4

以下是代码块 求每一行的解释