asp代码注释 在asp中,该如何注释一句代码?
ASP\u4ee3\u7801\u52a0\u4e0a\u6ce8\u91ca<%
smtid=request("smtid") '\u83b7\u53d6\u53c2\u6570\u8d4b\u7ed9smtid
if smtid="" or not IsNumeric(smtid) then '\u5982\u679csmtid\u4e3a\u7a7a \u6216 \u53c2\u6570\u4e0d\u662f\u6570\u5b57
response.write "\u9519\u8bef\u53c2\u6570\uff01" '\u5c4f\u5e55\u8f93\u51fa\u201c\u9519\u8bef\u53c2\u6570\u201d
response.end '\u7ed3\u675f\u4ee3\u7801\u6267\u884c
end if 'if\u8bed\u53e5\u7ed3\u675f
set rsoutput=server.CreateObject("adodb.recordset") '\u4e3arsoutput\u8bbe\u7f6e\u8bb0\u5f55\u96c6
sqloutput="select * from books where bookid="&smtid 'sql\u8bed\u53e5 \u67e5\u627ebooks\u8868\u4e2dbookid\u5b57\u6bb5\u4e3asmtid\u53d8\u91cf\u4e2d\u7684\u503c
rsoutput.open sqloutput,conn,1,1 '\u6267\u884csql\u8bed\u53e5
if not rsoutput.eof then '\u5982\u679c\u8bb0\u5f55\u6307\u9488\u5230\u6587\u4ef6\u672b\u5c3e \u5c31\u662f\u6ca1\u6709\u627e\u5230\u7684\u610f\u601d \u6267\u884c\u4e0b\u9762
%>
\u76f4\u63a5\u5220\u9664\u3002
\u6216\u8005\u627e\u5230top.asp
\u662fhtml\u4ee3\u7801\u7684\u5c31\u7528\u7528
\u5982\u679c\u662fasp\u8bed\u53e5\u524d\u9762\u6bcf\u884c\u90fd\u52a0\u5355\u5f15\u53f7'
\u53ef\u4ee5\u52a8\u624b\u8bd5\u4e0b\u3002
\u6211\u4eec\u63d0\u4f9b\u6709\u507f\u7a0b\u5e8f\u5b9a\u5236\u6307\u5bfc\u670d\u52a1\uff0c\u5982\u9700\u53ef\u767e\u5ea6HI\u6211\u3002
<%if not session("checked")="yes" then
'如果非验证用户则重定向到login.asp页面
response.Redirect "login.asp"
else
%>
<!--否则显示以下页面-->
<html>
<head>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<frameset cols="167,*" frameborder="YES" border="1" framespacing="1" rows="*" bordercolor="#666666">
<frame name="leftFrame" scrolling="auto" noresize src="left.asp">
<frame name="mainFrame" src="right.asp">
</frameset>
<noframes>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</noframes>
</html>
<%end if%>
<!--结束-->
login.asp：//登陆系统程序中的一段
<span class="font">密 码：</span>
<input type="password" name="password" class="text" size="20" onMouseOver="this.focus()">
<!--如果验证错误，提示验证错误-->
<%if session("check")="wrong" then response.Write "<br><span class='font'><font color=red>验证错误!</font></span>" end if%>
在上面的程序中用到一个检查用户和密码是否正确的程序check.asp：//核对输入的用户和密码是否正确
<%
dim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
exec="select *from check where(name='"&name&"' and password='"&password&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("admin.mdb")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
else
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
end if
%>
left.asp：//管理导航
<%@language=vbscript%>
<%if not session("checked")="yes" then
response.Redirect "login.asp"
else
%> <!--同上-->
<html>
<head>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body text="#000000" topmargin="0" bgcolor="#ffffff" leftmargin="10">
<div align="center"><a href="index.asp" target="_parent"><br>
<br>
管理界面首页</a> <a href="exit.asp" target="_parent">退出</a><br>
<br>
</div>
</body>
</html>
<%end if%>
exit.asp：//退出系统
<%@language=vbscript%>
<%
session("check")=""
session("checked")=""
response.redirect "login.asp"
%>
<!--退出系统把session全部置空，并重定向到login.asp-->
right.asp：//具体管理的内容
<%@language=vbscript%>
<%if not session("checked")="yes" then
response.Redirect "login.asp"
else
%>
<html>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#ffffff" text="#000000" topmargin="20" class="title">
这里是网页教学网的管理系统示例！请大家多研究使用！
</body>
</html>
<%end if%>
绛旓細鐩存帴鍒犻櫎銆傛垨鑰呮壘鍒皌op.asp 鏄痟tml浠ｇ爜鐨勫氨鐢ㄧ敤 <!--娉ㄩ噴鐨勫唴瀹--> 濡傛灉鏄痑sp璇彞鍓嶉潰姣忚閮藉姞鍗曞紩鍙'鍙互鍔ㄦ墜璇曚笅銆傛垜浠彁渚涙湁鍋跨▼搴忓畾鍒舵寚瀵兼湇鍔★紝濡傞渶鍙櫨搴I鎴戙
绛旓細'娉ㄩ噴鍐呭 rem 娉ㄩ噴鍐呭 鍙樻垚缁胯壊鏄洜涓轰娇鐢ㄤ簡涓嶅尮閰嶇殑鍙屽紩鍙锋垨鏄叾浠栫鍙 鍙樻垚鐏拌壊灏辨槸姝ｅ父鐨勬敞閲娿
绛旓細杩欓噷鐢╒B.NET鍐欏緱浠ｇ爜鍚э紝鎴戜篃涓嶅お浼氾紝鎴戞槸涓鑸敤C #.net鍋ASP.NET鐨勶紝浣嗘槸鍩烘湰浠ｇ爜鍘熺悊鏄浉鍚岀殑銆係ub BindData()//澹版槑myConn 涓篠qlConnection绫诲瀷 Dim myConn As New SqlConnection myConn.ConnectionString = "Server=.;Database=Files_gb;Uid=sa;Pwd="//杩欓噷鏄繛鎺ユ暟鎹簱瀛楃涓 Dim strSql...
绛旓細Function fun(a,b,c) //瀹氫箟fun锛堬級鍑芥暟锛宎锛宐锛宑涓轰笁涓眬閮ㄥ彉閲 if a>b then //姣旇緝a锛宐鐨勫ぇ灏 澶х殑鍊间粯缁欏彟涓涓彉閲廳 d=a else d=b end if if d<c then d=c //姣旇緝d锛宑鐨勫ぇ灏 fun=d //杩斿洖鏈澶у end function //杩欎釜鍑芥暟鐨勪綔鐢ㄥ氨鏄瘮杈冧笁涓暟绉嶇殑鏈澶у response.write...
绛旓細涓涓ASP鏂囦欢鍙互鍒嗕负HTML,VBScript,JavaScript鍑犻儴鍒嗭紝浠栦滑鐨娉ㄩ噴鏂规硶鍚勮嚜涓嶅悓锛歨tml閮ㄥ垎锛 浣跨敤<!-- xxxx --> VBScript閮ㄥ垎: 浣跨敤'Javascript閮ㄥ垎: 浣跨敤// 鍜 /* xxx */ (鍜孋璇█涓鏍风殑)
绛旓細aspx鎴栨瘝鐗堜腑娉ㄩ噴閮藉彲浠ヨ繖鏍峰啓 <%-- 娉ㄩ噴鍐呭 --%>涔熷彲浠ヤ娇鐢╤tml鏍煎紡鐨勬敞閲婏紝涓嶈繃杩欑娉ㄩ噴浼氳緭鍑哄埌浠ｇ爜閲岋紝浣嗕笉鏄剧ず鍦ㄩ〉闈笂 <!-- 娉ㄩ噴鍐呭 -->
绛旓細杩欑被闂鍥炵瓟澶浜,寤鸿鍏堝鐐ASP鍜屾暟鎹簱鍩虹!Set Downtype = oConn.execute ("select * from Type where type_id="&oRs("Down_type"))'鍦ㄦ暟鎹簱琛═ype涓煡璇㈡潯浠朵负type_id瀛楁鐨勫唴瀹=oRs("Down_type"))鐨勬墍鏈夎褰 if not Downtype.eof then '濡傛灉璁板綍鎸囬拡娌℃湁鍒拌揪鏈鍚庣殑璁板綍,鍗虫湁绗﹀悎璇...
绛旓細鏄垽鏂渶鍚庝竴涓瓧绗︿覆鑻ヤ笉涓虹┖锛屽垯澧炲姞涓涓&Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End IfEnd Function%>涓轰綘娉ㄩ噴瀹屾暣涓▼搴忓悗锛屾劅瑙夎繖涓▼搴忎富瑕佹槸鎺ュ彈涓婁釜椤甸潰鎻愪氦鍊煎悗锛屽啀灏嗗彉閲忎釜鍊艰浆鎹负鏍囧噯鐨刄RL鍦板潃锛岃矊浼...
绛旓細Request.ServerVariables["Remote_Addr"]鍙戝嚭璇锋眰鐨勮繙绋嬩富鏈虹殑IP鍦板潃 Request.ServerVariables["Remote_Addr"]鍙戝嚭璇锋眰鐨勮繙绋嬩富鏈虹殑IP鍦板潃 Request.ServerVariables["Remote_Host"]鍙戝嚭璇锋眰鐨勮繙绋嬩富鏈哄悕绉 Request.ServerVariables["Local_Addr"]杩斿洖鎺ュ彈璇锋眰鐨勬湇鍔″櫒鍦板潃 Request.ServerVariables["Http_Host"]杩斿洖...
绛旓細閮芥槸浜汧unction鍑芥暟 Function DealString(str,le) 鏄埅鍙栧瓧绗︿覆鍑芥暟 Function getStr() 鏄互鏃堕棿涓轰緷鎹殑浜х敓鐨勯殢鏈哄瓧绗︿覆 function gotTopic(str,strlen)涔熸槸鑾峰彇瀛楃涓 杩欎簺鍑芥暟瑕佹牴鎹疄闄呮儏鍐垫潵璋冪敤 鍙傝冭祫鏂欙細http://wwanghee.blog.163.com/ ...
