ASP初学者指南-CSDN博客

刚学ASP，手抄了一段代码。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<%
dim d,e,f
d="aaabc"
e="27015"
f=d+e
response.Write(f)
%> 
<%
dim aa
aa=2
if aa<=5 then
response.Write("我在学习ASP")
else
response.Write("我不会ASP")
end if
%>
<%
dim cc
cc=0
for i=1 to 100
cc=cc+i
next
response.Write("从1加到100的结果等于："& cc &"。")
%>
<%
for i=0 to 9
 for ii=9 to i step -1
 a="口"
 response.Write(a)
 next
 response.Write(" ")
 next
%>

浏览器代码
<%
response.Write("您使用的浏览器是：" & request.serverVariables("HTTP_USER_AGENT") & " ")
response.Write("您的IP地址是：" & request.serverVariables("REMOTE_ADDR") & " ")
response.Write("您访问的网页是：" & request.serverVariables("URL") & " ")
response.Write("您访问的端口是：" & request.serverVariables("SERVER_PORT") & " ")
%> 
九九乘法表 
<%
response.Write("<table border='1' bordercolor='#09f' cellspacing='0'>")
for k=1 to 9
response.Write("<tr>")
for j=1 to k
a=j*k
response.Write("<td>")
response.Write(j & "*" & k &"=" &a)
response.Write("<td>")
next
response.Write("</tr>")
next
response.Write("</table>")