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命令相关的资料