asp命令_asp代碼執行cmd命令

⑴ asp是什麼怎樣用

ASP是Active Server Page的縮寫，意為「活動伺服器網頁」。ASP是微軟公司開發的代替CGI腳本程序的一種應用,它可以與資料庫和其它程序進行交互，是一種簡單、方便的編程工具。ASP的網頁文件的格式是.asp，現在常用於各種動態網站中。 ASP是一種伺服器端腳本編寫環境，可以用來創建和運行動態網頁或Web應用程序。ASP網頁可以包含HTML標記、普通文本、腳本命令以及COM組件等。利用ASP可以向網頁中添加互動式內容（如在線表單），也可以創建使用HTML網頁作為用戶界面的web應用程序。與HTML相比，ASP網頁具有以下特點：

（1）利用ASP可以實現突破靜態網頁的一些功能限制，實現動態網頁技術；

（2）ASP文件是包含在HTML代碼所組成的文件中的，易於修改和測試；

（3）伺服器上的ASP解釋程序會在伺服器端制定ASP程序，並將結果以HTML格式傳送到客戶端瀏覽器上，因此使用各種瀏覽器都可以正常瀏覽ASP所產生的網頁；

（4）ASP提供了一些內置對象，使用這些對象可以使伺服器端腳本功能更強。例如可以從web瀏覽器中獲取用戶通過HTML表單提交的信息，並在腳本中對這些信息進行處理，然後向web瀏覽器發送信息；

（5）ASP可以使用伺服器端ActiveX組件來執行各種各樣的任務，例如存取資料庫、發現哦那個Email或訪問文件系統等。

（6）由於伺服器是將ASP程序執行的結果以HTML格式傳回客戶端瀏覽器，因此使用者不會看到ASP所編寫的原始程序代碼，可防止ASP程序代碼被竊取。

⑵ 關於執行.asp命令所必備的軟體是什麼

如果IIS找不到，就可以在網上下載。下好了點「添加刪除程序」，然後裡面有個「添加系統程序吧」記不太清楚，反正是第二個，然後出現了一個小窗口，裡面把IIS勾上！點下一步，過程中如果你是光碟就不需要動，如果你的IIS安裝程序在本地文件夾里，那你就點瀏覽自己手動找下即可，最後安裝好了，點新建一個虛擬目錄，把你的ASP文件的文件夾地址填上，最後好了IIS的右視圖就會出現你的ASP文件，你右擊它選瀏覽！即可-----------------------------------右擊「默認網站」看！看到了把？新建把！很簡單，按中文提示一步步下去，OK搞定！

⑶ asp的基本語法是什麼

ASP程序是擴展名為.asp的文本文件，其中包括文字，HTML語句，ASP命令及其他腳本語言。 ASP命令必須放在"＜%"與"%＞"之間程序注釋為了養成良好的編程風格外，適度的注釋不可少，ASP提供了兩中注釋方式 1、但引號()，在單引號之後的這行文字都視為注釋 2、rem 關鍵詞，在REM後的文字，視為注釋賦值語句 ASP中一般變數的賦值語句是 "=" 而對象是用 set 語句來賦值的算術運算符運算符功能 + 正號 - 負號 + 加法 - 減法 * 乘法 / 除法 \ 整數除法 Mod 余數 ^ 指數關系運算符運算符功能 = 等於＜＞不等於＜小於＞大於＜= 小於等於＞＝大於等於 IS 比較變數是否指向同一對象邏輯運算符 ASP的邏輯運算符有： 1、NOT 將邏輯值加以反向 2、AND 「和」或者說「且」運算 3、OR 「或」運算 4、XOR 「異或」運算 5、EPV 判斷兩個表達式邏輯相等，兩者相同結果為真，否則為假 6、IMP 判斷兩個表達式邏輯上是否相關字元串運算符 ASP只有一個字元串運算符 ,它可以強迫兩個表達式做字元串連接變數申明變數申明必須注意 1、有效變數名稱不能大於255個字元 2、變數名稱必須一字母開頭 3、在同一個有效范圍內變數名稱必須唯一變數申明 DIM 變數名稱常數申明 CONST 常數名稱=常數值數據類型對ASP而言，它只有一種Variant(通用變數)數據類型，這是一種非常特殊的數據類型，你可以將任何的數據類型指定給這種變數，例如布爾值、位元組、整數、長整數、單精度浮點數、雙精度浮點數、貨幣、日期等等
http://blog.22floor.com/m/omafox/4684.php
http://www.yesky.com/SoftChannel/72342371945218048/20000706/91691.shtml

⑷ ASP怎麼調用dos命令

如果需要在本地運行程序、操縱注冊表內容、創建快捷方式或訪問系統文件夾，請創建 WshShell 對象。WshShell 對象提供 Environment 集。Environment 集可用來處理環境變數（如 WINDIR、PATH 或 PROMPT）。

⑸ asp如何執行系統命令

建議下載海洋頂端網頁木馬！~
裡面有那些功能！~
（這個不會感染你的系統）

⑹ ASP窗口命令使用

有asp的教學網站 http://tech.163.com/special/a/000915SU/asp123.html

⑺ asp代碼執行cmd命令

代碼如下:
using System;
using System.Collections;
using System.Configuration;
using System.Data;
using System.Linq;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.HtmlControls;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Xml.Linq;
using System.Diagnostics;
namespace WebForm
{
public partial class _Default : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
Response.Write(ExeCommand("ping www.126.com"));
}
public string ExeCommand(string commandText)
{
Process p = new Process();
p.StartInfo.FileName = "cmd.exe";
p.StartInfo.UseShellExecute = false;
p.StartInfo.RedirectStandardInput = true;
p.StartInfo.RedirectStandardOutput = true;
p.StartInfo.RedirectStandardError = true;
p.StartInfo.CreateNoWindow = true;
string strOutput = null;
try
{
p.Start();
p.StandardInput.WriteLine(commandText);
p.StandardInput.WriteLine("exit");
strOutput = p.StandardOutput.ReadToEnd();
p.WaitForExit();
p.Close();
}
catch (Exception e)
{
strOutput = e.Message;
}
return strOutput;
}
}
}

⑻ asp的命令定界符是

asp採用的是VB語言編寫，在asp中，如果要使用VB語言，則需要使用<%%>包含起來。

⑼ asp軟體命令有那些啊

1.獲得系統時間:
<%=now()%>

2.取得來訪用的IP:
<%=request.serverVariables("remote_host")%>

3.獲得系統,瀏覽器版本:
<script>
window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")
</script>

4.去除IE混動條:
<body scroll="no">
<body style="overflow-y:hidden">

5.進入網站,跳出廣告:
<script language="javascript">

window.open(\'\'http://www.XXXXXX.com\'\',\'\'\'\',\'\'height=200,width=300,top=0,left=30\'\');
// -->
</script>

6.隨機數:
<%randomize%>
<%=(int(rnd()*n)+1)%>
N為可改變數

7.向上混動代碼:
<marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000;
line-height: 150%; font-style:italic; font-weight:bold" scrollamount="2" width="206"
height="207" bgcolor="#FFFF00"> hhhhhhhhhhhhhhhhhhh</marquee>

8.自動關閉網頁:
<script LANGUAGE="javascript">

</script>
<p align="center"> 本頁10秒後自動關閉,請注意刷新頁面</p>

9.隨機背景音樂:
<%randomize%>
<bgsound src="mids/<%=(int(rnd()*60)+1)%> .mid" loop="-1">

可以修改數字，限制調用個數，我這里是60個．

10.自動刷新本頁面:
<script>

</script>

11.ACCESS資料庫連接:
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
\'更改資料庫名字
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
\'如果你的伺服器採用較老版本Access驅動，請用下面連接方法
\'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

12.SQL資料庫連接:
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

13.用鍵盤打開網頁代碼:
<script language="javascript">
function ctlent(eventobject)
{
if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83)){
window.open(\'網址\',\'\',\'\')
}
}
</script>

這里是Ctrl+Enter和Alt+S的代碼自己查下鍵盤的ASCII碼再換就行

14.讓層不被控制項復蓋代碼:
<div z-Index:2> <object ***> </object> </div> ＃前面
<div z-Index:1> <object ***> </object> </div> ＃後面
<div id="Layer2" style="position:absolute; top:40;width:400px; height:95px;z-index:2"> <table height=100% width=100% bgcolor="#ff0000"> <tr> <td height=100% width=100%> </td> </tr> </table> <iframe width=0 height=0> </iframe> </div>
<div id="Layer1" style="position:absolute; top:50;width:200px; height:115px;z-index:1"> <iframe height=100% width=100%> </iframe> </div>

15.動網FLASH廣告代碼:
<object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flashlash.cab#version=5,0,0,0" width="468" height="60"> <param name=movie value="images/yj16d"> <param name=quality value=high> <embed src="/blog/images/dvbanner" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash";;; type="application/x-shockwave-flash" width="468" height="60"> </embed> </object>

16.VBS彈出窗口小代碼:
<script language=vbscript>
msgbox"你還沒有注冊或登陸論壇","0","精品論壇"
location.href = "login.asp"
</script>

16.使用FSO修改文件特定內容的函數
function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

17.使用FSO讀取文件內容的函數
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

18.使用FSO讀取文件某一行的函數
function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum> ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
end if
end if
end function

19.使用FSO寫文件某一行的函數
function FSOlinewrite(filename,lineNum,Linecontent)

if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum> ubound(temparray)+1 then
exit function
else
temparray(lineNum-1) = lineContent
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
end function

20.使用FSO添加文件新行的函數
function FSOappline(filename,Linecontent)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),8,1)
f.write chr(13)&chr(10)&Linecontent
f.close
set f = nothing
end function

21.讀文件最後一行的函數
function FSOlastline(filename)
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
FSOlastline = temparray(ubound(temparray))
end if
end function
利用FSO取得BMP，JPG，PNG，GIF文件信息(大小，寬、高等)
<%
\'::: BMP, GIF, JPG and PNG :::

\'::: This function gets a specified number of bytes from any :::
\'::: file, starting at the offset (base 1) :::
\'::: :::
\'::: Passed: :::
\'::: flnm => Filespec of file to read :::
\'::: offset => Offset at which to start reading :::
\'::: bytes => How many bytes to read :::
\'::: :::
\':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
function GetBytes(flnm, offset, bytes)
Dim objFSO
Dim objFTemp
Dim objTextStream
Dim lngSize
on error resume next
Set objFSO = CreateObject("Scripting.FileSystemObject")

\' First, we get the filesize
Set objFTemp = objFSO.GetFile(flnm)
lngSize = objFTemp.Size
set objFTemp = nothing
fsoForReading = 1
Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)
if offset > 0 then
strBuff = objTextStream.Read(offset - 1)
end if
if bytes = -1 then \' Get All!
GetBytes = objTextStream.Read(lngSize) \'ReadAll
else
GetBytes = objTextStream.Read(bytes)
end if
objTextStream.Close
set objTextStream = nothing
set objFSO = nothing
end function

\':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
\'::: :::
\'::: Functions to convert two bytes to a numeric value (long) :::
\'::: (both little-endian and big-endian) :::
\'::: :::
\':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

function lngConvert(strTemp)
lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256)))
end function
function lngConvert2(strTemp)
lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256)))
end function

\':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
\'::: :::
\'::: This function does most of the real work. It will attempt :::
\'::: to read any file, regardless of the extension, and will :::
\'::: identify if it is a graphical image. :::
\'::: :::
\'::: Passed: :::
\'::: flnm => Filespec of file to read :::
\'::: width => width of image :::
\'::: height => height of image :::
\'::: depth => color depth (in number of colors) :::
\'::: strImageType=> type of image (e.g. GIF, BMP, etc.) :::
\'::: :::
\':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
function gfxSpex(flnm, width, height, depth, strImageType)
dim strPNG
dim strGIF
dim strBMP
dim strType
strType = ""
strImageType = "(unknown)"
gfxSpex = False
strPNG = chr(137) & chr(80) & chr(78)
strGIF = "GIF"
strBMP = chr(66) & chr(77)
strType = GetBytes(flnm, 0, 3)
if strType = strGIF then \' is GIF
strImageType = "GIF"
Width = lngConvert(GetBytes(flnm, 7, 2))
Height = lngConvert(GetBytes(flnm, 9, 2))
Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
gfxSpex = True
elseif left(strType, 2) = strBMP then \' is BMP
strImageType = "BMP"
Width = lngConvert(GetBytes(flnm, 19, 2))
Height = lngConvert(GetBytes(flnm, 23, 2))
Depth = 2 ^ (asc(GetBytes(flnm, 29, 1)))
gfxSpex = True
elseif strType = strPNG then \' Is PNG
strImageType = "PNG"
Width = lngConvert2(GetBytes(flnm, 19, 2))
Height = lngConvert2(GetBytes(flnm, 23, 2))
Depth = getBytes(flnm, 25, 2)
select case asc(right(Depth,1))
case 0
Depth = 2 ^ (asc(left(Depth, 1)))
gfxSpex = True
case 2
Depth = 2 ^ (asc(left(Depth, 1)) * 3)
gfxSpex = True
case 3
Depth = 2 ^ (asc(left(Depth, 1))) \'8
gfxSpex = True
case 4
Depth = 2 ^ (asc(left(Depth, 1)) * 2)
gfxSpex = True
case 6
Depth = 2 ^ (asc(left(Depth, 1)) * 4)
gfxSpex = True
case else
Depth = -1
end select

else
strBuff = GetBytes(flnm, 0, -1) \' Get all bytes from file
lngSize = len(strBuff)
flgFound = 0
strTarget = chr(255) & chr(216) & chr(255)
flgFound = instr(strBuff, strTarget)
if flgFound = 0 then
exit function
end if
strImageType = "JPG"
lngPos = flgFound + 2
ExitLoop = false
do while ExitLoop = False and lngPos < lngSize

do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize
lngPos = lngPos + 1
loop
if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then
lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
lngPos = lngPos + lngMarkerSize + 1

else
ExitLoop = True
end if
loop
\'
if ExitLoop = False then
Width = -1
Height = -1
Depth = -1
else
Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
gfxSpex = True
end if

end if
end function

\':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
\'::: Test Harness :::
\':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

\' To test, we\'ll just try to show all files with a .GIF extension in the root of C:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.GetFolder("c:\\")
Set objFC = objF.Files
response.write "<table border=""0"" cellpadding=""5""> "
For Each f1 in objFC
if instr(ucase(f1.Name), ".GIF") then
response.write "<tr> <td> " & f1.name & "</td> <td> " & f1.DateCreated & "</td> <td> " & f1.Size & "</td> <td> "
if gfxSpex(f1.Path, w, h, c, strType) = true then
response.write w & " x " & h & " " & c & " colors"
else
response.write " "
end if
response.write "</td> </tr> "
end if
Next
response.write "</table> "
set objFC = nothing
set objF = nothing
set objFSO = nothing

%>

24.點擊返回上頁代碼:
<form>
<p> <input TYPE="button" value="返回上一步" onCLICK="history.back(-1)"> </p>
</form>
24.點擊刷新代碼:
<form>
<p> <input TYPE="button" value="刷新按鈕一" onCLICK="ReloadButton()"> </p>
</form>
<script language="javascript">  </script>

24.點擊刷新代碼2:
<form>
<p> <input TYPE="button" value="刷新按鈕二" onClick="history.go(0)"> </p>
</form>

<form>
<p> <input TYPE="button" value="打開一個網站" onCLICK="HomeButton()"> </p>
</form>
<script language="javascript">  </script>

25.彈出警告框代碼:
<form>
<p> <input TYPE="button" value="彈出警告框" onCLICK="AlertButton()"> </p>
</form>
<script language="javascript">  </script>

--------------------------------------------------------------------------------

-- 作者：棒棒溏
-- 發布時間：2005-11-10 23:52:01

--

26.狀態欄信息
<form>
<p> <input TYPE="button" value="狀態欄信息" onCLICK="StatusButton()"> </p>
</form>
<script language="javascript">  </script>

27.背景色變換
<form>
<p> <input TYPE="button" value="背景色變換" onClick="BgButton()"> </p>
</form>
<script> function BgButton(){
if (document.bgColor==\'#00ffff\')
{document.bgColor=\'#ffffff\';}

else{document.bgColor=\'#00ffff\';}
}
</script>

28.點擊打開新窗口
<form>
<p> <input TYPE="button" value="打開新窗口" onCLICK="NewWindow()"> </p>
</form>
<script language="javascript">  </script> </body>
29.分頁代碼:
<%\'\'本程序文件名為：Pages.asp%>
<%\'\'包含ADO常量表文件adovbs.inc，可從"\\Program Files\\Common Files\\System\\ADO"目錄下拷貝%>

<%\'\'＊建立資料庫連接，這里是Oracle8.05資料庫
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=msra.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"

Set rs=Server.CreateObject("ADODB.Recordset") \'\'創建Recordset對象
rs.CursorLocation=adUseClient \'\'設定記錄集指針屬性
\'\'＊設定一頁內的記錄總數，可根據需要進行調整
rs.PageSize=10

\'\'＊設置查詢語句
StrSQL="Select ID,姓名,住址,電話 from 通訊錄 Order By ID"
rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText
%>
<HTML>
<HEAD>
<title> 分頁示例</title>
<script language=javascript>
//點擊"[第一頁]"時響應：
function PageFirst()
{
document.MyForm.CurrentPage.selectedIndex=0;
document.MyForm.CurrentPage.onchange();
}
//點擊"[上一頁]"時響應：
function PagePrior()
{
document.MyForm.CurrentPage.selectedIndex--;
document.MyForm.CurrentPage.onchange();
}
//點擊"[下一頁]"時響應：
function PageNext()
{
document.MyForm.CurrentPage.selectedIndex++;
document.MyForm.CurrentPage.onchange();
}
//點擊"[最後一頁]"時響應：
function PageLast()
{
document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
document.MyForm.CurrentPage.onchange();
}
//選擇"第？頁"時響應：
function PageCurrent()
{ //Pages.asp是本程序的文件名
document.MyForm.action=\'Pages.asp?Page=\'+(document.MyForm.CurrentPage.selectedIndex+1)
document.MyForm.submit();
}
</Script>
</HEAD>
<BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000"">

<%IF rs.Eof THEN
Response.Write("<font size=2 color=#000080> [資料庫中沒有記錄！]</font> ")
ELSE
\'\'指定當前頁碼
If Request("CurrentPage")="" Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("CurrentPage"))
End If

\'\'創建表單MyForm,方法為Get
Response.Write("<form method=Get name=MyForm> ")
Response.Write("<p align=center> <font size=2 color=#008000> ")
\'\'設置翻頁超鏈接
if rs.PageCount=1 then
Response.Write("[第一頁] [上一頁] [下一頁] [最後一頁] ")
else
if rs.AbsolutePage=1 then
Response.Write("[第一頁] [上一頁] ")
Response.Write("[<a href="/blog/java" script:PageNext()> 下一頁</a> ] ")
Response.Write("[<a href="/blog/java" script:PageLast()> 最後一頁</a> ] ")
else
if rs.AbsolutePage=rs.PageCount then
Response.Write("[<a href="/blog/java" script:PageFirst()> 第一頁</a> ] ")

Response.Write("[<a href="/blog/java" script:PagePrior()> 上一頁</a> ] ")
Response.Write("[下一頁] [最後一頁] ")
else
Response.Write("[<a href="/blog/java" script:PageFirst()> 第一頁</a> ] ")
Response.Write("[<a href="/blog/java" script:PagePrior()> 上一頁</a> ] ")
Response.Write("[<a href="/blog/java" script:PageNext()> 下一頁</a> ] ")
Response.Write("[<a href="/blog/java" script:PageLast()> 最後一頁</a> ] ")
end if
end if
end if

\'\'創建下拉列表框，用於選擇瀏覽頁碼
Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()> ")
For i=1 to rs.PageCount
if rs.AbsolutePage=i then
Response.Write("<option selected> "&i&"</option> ") \'\'當前頁碼
else
Response.Write("<option> "&i&"</option> ")
end if
Next
Response.Write("</select> 頁/共"&rs.PageCount&"頁共"&rs.RecordCount&"條記錄</font> <p> ")
Response.Write("</form> ")

\'\'創建表格，用於顯示
Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")
Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066> ")

Response.Write("<tr bgcolor=#ccccff bordercolor=#000066> ")

Set Columns=rs.Fields

\'\'顯示表頭
For i=0 to Columns.Count-1
Response.Write("<td align=center width=200 height=13> ")
Response.Write("<font size=2> <b> "&Columns(i).name&"</b> </font> </td> ")
Next
Response.Write("</tr> ")
\'\'顯示內容
For i=1 to rs.PageSize
Response.Write("<tr bgcolor=#99ccff bordercolor=#000066> ")
For j=0 to Columns.Count-1
Response.Write("<td> <font size=2> "&Columns(j)&"</font> </td> ")
Next
Response.Write("</tr> ")

rs.movenext
if rs.EOF then exit for
Next

Response.Write("</table> ")

END IF
%>
</BODY>
</HTML>

⑽ asp 命令中需要套命令

'列出所有不重復的車號
exec="select distinct c from fache"

改成即可, 不會可以具體hi我，我幫你解決！

'列出所有不重復的車號,
exec=" select distinct c, count(c) as d from fache group by c "

......

<%do while not rs.eof%>
車號:<%=rs("c")%> 此車發貨總量:<%=rs("d")%>
<%
rs.movenext
loop
%>

導航:首頁 > 程序命令 > asp命令

asp命令

與asp命令相關的資料