ASPµÄÊý¾Ý¼¯¿É²»¿ÉÒÔÕâÑùд£¿
set rs=server.createobject("adodb.recordset")
set RS=server.createobject("adodb.recordset")
sql1="select jufenjiekou from A"
Rs.open sql1,conn,1,1
while not Rs.eof
sql2="select top 1 * from AE"
rs.open sql2,conn,1,3
²Ù×÷¡£¡£¡£
rs.movenext
wend
----------------------------------------------------------------------
ÇëÎÊÕâÑùд¶ÔÂ𣬲Ù×÷Á½¸ö±í
²»ÄÜ,vb´óСд²»Ãô¸ÐrsºÍRSÊÇͬһ¸ö±äÁ¿,
ÇëÎÊÂ¥ÉÏ£¬ÎÒдµÄÓï·¨ÓÐÎÊÌâÂð
Äã¿ÉÒÔÕâÑùд.ASPÀïºÃÏñ²»·Ö´óСдµÄ
VBScript code:
set rs1=server.createobject("adodb.recordset")
set RS=server.createobject("adodb.recordset")
sql1="select jufenjiekou from A"
Rs.open sql1,conn,1,1
while not Rs.eof
sql2="select top 1 * from AE"
rs1.open sql2,conn,1,3
²Ù×÷¡£¡£¡£
rs1.movenext
wend
- - Óï·¨...
Ïà¹ØÎÊ´ð£º
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......
<%On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.begintrans
conn.Open ("Driver={SQL Server};server=(local);uid=sa;database=student;pwd=")
......
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏß±à¼Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏß±à¼Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......
×Ö¶ÎPowerListÀïÃæµÄÖµ£ºKSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
ÏÖÔÚÒªÅжϣ¬µ±PowerListÀïÃæ´æÔÚKSO10004Õâ¸öÖµµÄʱºò£¬Êä³ö£ººÃ
VBScript code:
<%
set rs=server.Creat ......