ASPÓÃADODB.COMMAND¶ÔÏóʱ³ö´í...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!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>
<body>
<%
set cmd=Server.CreateObject("ADODB.Command")
set rsMsg=Server.CreateObject("ADODB.Recordset")
cmd.CommandType = 1
set cmd.CommandText = "SELECT * from TB_MSG"
set cmd.ActiveConnection = conn
rsMsg.Open cmd, 1, 3
do while not rsMsg.EOF
Response.Write(rsMsg("Msg"))
rsMsg.MoveNext()
loop
%>
</body>
</html>
VBScript code:
rsMsg.Open cmd, ,1, 3 'µÚ¶þ¸ö²ÎÊýÁô³öÀ´
rsMsg.Open cmd, 1, 3
¸Ä³É£º
set rsMsg=cmd.execute
»òÕߣº
rsMsg.open cmd.CommandText,cmd.ActiveConnection,1,3
Ïà¹ØÎÊ´ð£º
<%if request.QueryString("start") <>"" then%>
<%if cint(start)>0 then%>
<a href="search.asp?q= <%=q%>&start= <%if request.Query ......
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
×Ö¶ÎPowerListÀïÃæµÄÖµ£ºKSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
ÏÖÔÚÒªÅжϣ¬µ±PowerListÀïÃæ´æÔÚKSO10004Õâ¸öÖµµÄʱºò£¬Êä³ö£ººÃ
VBScript code:
<%
set rs=server.Creat ......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......
Replaceº¯ÊýÈçºÎĬÈÏÊÇ´Ó×ó¶ËÌæ»»£¬ÈçºÎʹÆä´ÓÓұ߿ªÊ¼Ìæ»»£¬¼´Ìæ»»Ò»¸ö×Ö·û´®µÄ×îºóÒ»¸ö×Ö·û£¬Ìæ»»´ÎÊýΪ1´Î£¬Ð»Ð»
ÒýÓÃ
VBScript code <%
Response.Write ReplaceRev("abcdefXXXghi"," ......