㈠ 请高手花点时间帮我注释代码意思，谢谢大家
<%@language=vbscript codepage=936 %>
<!--包含文件-->
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
''''检测客户端提交的用户名和密码
''''如果用户名或密码任一为空，则设置标置FoundErr为true，设置错误提示ErrMsg
dim sql,rs
dim username,password,CheckCode
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
if UserName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名不能为空！</li>"
end if
if Password="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>密码不能为空！</li>"
end if
''''如果FoundErr不等于true，表示密码和用户名有效。
if FoundErr<>True then
''''对密码使用md5进行加密
password=md5(password)
''''创建数据集对象
''''根据加密后的password和username从数据库中提取数据
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
rs.open sql,conn,1,3
''''如果没有符合条件的数据，则置错误标志FoundErr，设置错误提示ErrMsg
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
''''有符合条件的数据，但密码不匹配，此处为防止SQL注入
if password<>rs("password") then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
''''用户名和密码完全匹配
''''取客户端IP地址
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
''''取当前时间
rs("LastLoginTime")=now()
''''将登录次数加1
rs("LoginTimes")=rs("LoginTimes")+1
''''更新以上数据
rs.update
''''设置Session的值
session("admin")=rs("username")
session("purview")=rs("purview")
rs.close
set rs=nothing
''''关闭数据集，调用CloseConn函数关闭数据库连接
call CloseConn()
''''客户端转向
Response.Redirect "main.asp"
end if
end if
''''用户名或者密码无效时，关闭数据集，调用WriteErrMsg显示错误信息，调用CloseConn关闭数据连接
rs.close
set rs=nothing
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
'****************************************************
'过程名：WriteErrMsg
'作 用：显示错误提示信息
'参 数：无
'****************************************************
sub WriteErrMsg()
dim strErr
strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
strErr=strErr & "<link href='../css/normal.css' rel='stylesheet' type='text/css'></head><body>" & vbcrlf
strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbcrlf
strErr=strErr & " <tr align='center'><td height='22' class='title'><br><br><strong>出 错 了 ！</strong><br><br></td></tr>" & vbcrlf
strErr=strErr & " <tr><td height='100' class='tdbg' valign='top'><b>产生错误的原因：</b><br>" & errmsg &"</td></tr>" & vbcrlf
strErr=strErr & " <tr align='center'><td class='tdbg'><br><br><a href='../default.asp'>>> 返回登录页面</a></td></tr>" & vbcrlf
strErr=strErr & "</table>" & vbcrlf
strErr=strErr & "</body></html>" & vbcrlf
response.write strErr
end sub
%>
真要一行行注释,打字真的很累
㈡ 花点时间去阅读，它是什么____
花点时间去开怀大笑（域外箴言）
王启国编译
2006年01月13日
◆花点时间去工作，它是成功的标签；
◆花点时间去思考，它是力量的来源；
◆花点时间去玩耍，它是永葆青春的秘笈；
◆花点时间去阅读，它是智慧的源泉；
◆花点时间去学会友善，它是通向快乐的大道；
◆花点时间去梦想，它是载着你驶向星球的马车；
◆花点时间去爱别人和接受别人的爱，它是上天的诏命；
◆花点时间去到处走走，生命太短暂何忍蹉跎；
◆花点时间去开怀大笑，它是心灵的乐章。
㈢ 花点时间还能撑多久
花点时间去学Take the time to learnspend time on sth/ spend time learning sth上面都可以如果你喜欢学英语，你就要多花点时间去学。You must spend more time on it , If you love learning English .
㈣ 花点时间我要取消一份续订
想要学校直接取消就预定就好了，这个不需要别人帮助的，你想要取消什么？在那个平台上直接点击取消就可以了
㈤ 花点时间是做什么的有谁知道吗
回答，花点时间是做什么的？有谁知道时间就是金钱，生命要争取时间，什么事情就可以做的完完整整胜利在望，珍惜时间
㈥ 花点时间的“每周一花”怎么样
花点时间的“每周一花”是指他们的包月鲜花服务，通过网上预订，确定周期，有包月、包季度和包年好几种方式，肯定是时间越长越划算。不过包月鲜花本身就很值了，才99块钱，在每周一能收到应季鲜花，也可以周六收到鲜花，很人性化。花点时间有很多实体加盟店，也无需担心售后啥的。
㈦ 花点时间怎么取消续订
花点儿时间怎么取消续订话的时间，找到个人中心设置进入到账户中心。取消定制。