jonyguan的专栏

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>lovehui dim conn,sql,rs Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("lovehui.mdb")

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>SELECT...CASE  dim a,b  a=40  select case a  case 10   response.Write("a=10")  case 20   response.Write("a=20")  case 30   response.Write("a=30")  case 40   respo

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>DO_WHILE_LOOP  dim i  i=1  do while i  response.Write("i="&i&"")  i=i+1  loop%>

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>WHILE_WEND  dim i  i=1  while i  response.Write("i="&i&"")  i=i+1  wend%>  

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>DO_LOOP_UNTIL  dim i  i=1  do   response.Write("i="&i&"")  i=i+1  loop until i>10%>  

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>lovehuidim a,b,c,ccdim shushu=100a="小官"b="小会"c=a+"love"+b+shu 注意这里不能用加号连接了,呵呵这就是&与+号的区别了,用&是可以连接不同的数据类型+号只能用于连接字符串.c=a+"love"+b&shuresponse.Write(c+"")cc=a&"love

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>SUB过程带参数  dim total,i  response.Write("使用过程名直接调用的结果")  total=5  i=1  mysub total,i  response.Write("")  response.Write("使用 call 过程名调用的结果")  total=6  i=2  call mys

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>SUB过程  response.Write("使用过程名直接调用的结果")  mysub  response.Write("")  response.Write("使用 call 过程名直接调用的结果")  call mysub%>   sub mysub  dim total,i  total=5  i=1  while

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>FOR_NEXT  dim i  for i=1 to 10 step 1  response.Write("i="&i&"")  next%>  

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>IF...THENdim a,bdim shushu=100a=100b=200response.Write("a="&a&"")response.Write("b="&b&"")if a response.Write("作了一个if a &lt b then a=b判断后:")response.Write("a="&a)

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>http://www.w3.org/TR/html4/loose.dtd">小帆在网页输出指定表中的所有数据  dim connstr,sql,conn,rs  connstr="provider=sqloledb;data source=127.0.0.1,1433;User ID=***;pwd=***;Initial