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
Ïà¹ØÎÊ´ð£º
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......
±¾ÈËÓÐÈýÄ꿪·¢¾Ñé,ÏÖÔÚÕÒ¹¤×÷(ÏÃÃÅ),,,ÓÐÒâÕßÇëÁªÏµQQ:523054271
1.5Ä깤×÷¾ÑéÕÒ¹¤×÷ ËûÒª¶àÉÙ ÎÒÒªÒ»°ë~~
±ð˵ÈýÄêµÄÁË...¾ÍÊÇ5ÄêµÄÒ²Ò»×¥Ò»´ó°Ñ.....
°³ÐèÒªÓÃasp+access×öÒ»¸ö½øÏú´æÈí¼þ£¬ÄúÄÜ×ö ......
owc11Âú×ã²»ÁËÒªÇó£¬ÓÐûÓиüºÃµãµÄ£¬aspÄܵ÷ÓõÄ
Ŀǰû·¢ÏÖ£¬°ïÄã¶¥£¡
Ó¦¸ÃûÓÐÁ˰É
×ÔÒÑд¡£¶¥
°ï¶¥£¬¹Ø×¢£¡
ºÃÏñ¾ÍÕâ¸öÁË£¬Ä¿Ç°»¹Ã»¿´µ½ÆäËûµÃÉÏÊÐʹÓᣡ£¡£°ï¶¥£¡
×Ô¼ºÔÙ¶¥Ò»ÏÂ
ºÃÏñÊÇûÓÐ ......
Replaceº¯ÊýÈçºÎĬÈÏÊÇ´Ó×ó¶ËÌæ»»£¬ÈçºÎʹÆä´ÓÓұ߿ªÊ¼Ìæ»»£¬¼´Ìæ»»Ò»¸ö×Ö·û´®µÄ×îºóÒ»¸ö×Ö·û£¬Ìæ»»´ÎÊýΪ1´Î£¬Ð»Ð»
ÒýÓÃ
VBScript code <%
Response.Write ReplaceRev("abcdefXXXghi"," ......