常用ASP代码（一）_自动测试脚本语言

常用ASP代码（一）

发表于：2007-06-30来源：作者：点击数：标签：

获取页面的HTML script var oXmlHttp = new ActiveXObject(Microsoft.XMLHTTP); oXmlHttp.open(GET,http://www.163.com, false); oXmlHttp.send() var oStream = new ActiveXObject(ADODB.Stream); if(oStream == null) alert(您的机器不支持ADODB.Stream.) e

获取页面的HTML

<script>
var oXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
oXmlHttp.open("GET","http://www.163.com", false);
oXmlHttp.send()
var oStream = new ActiveXObject("ADODB.Stream");
if(oStream == null)
alert("您的机器不支持ADODB.Stream.")
else
{
oStream.Type=1;
oStream.Mode=3;
oStream.Open() ;
oStream.Write(oXmlHttp.responseBody);
oStream.Position= 0;
oStream.Type= 2;
oStream.Charset="gb2312";
var result= oStream.ReadText();
oStream.Close();
oStream = null;
var aa = window.open("","")
document.write(result);
aa.document.write(result);
}
</script>

[新开一个窗口]============================================================================================================
window.open(‘’filename‘’,‘’‘’,‘’toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=1,width=400,height=570,top=200,left=300,bottom=0,right=0‘’);

[关于JS调用]============================================================================================================
new.asp(调用文件)
<%

str = "循环取的要调用的数据"
‘’关键是下面这句,调用document函数打印输入str值--->
%>
document.write(‘’<%=str%>‘’)
OK,结束,在其他要调用的页面插入
<script language="javascript" src="new文件所在目录/news.asp></script>

[打开一个窗口，并且关闭当前窗口]============================================================================================================
<script language="JavaScript">
//-->
window.open(‘’MenuMain.asp‘’,‘’‘’,‘’toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=1,width=,height=,top=0,left=0,bottom=0,right=0‘’);
window.opener = "meizz"; //加了这句代码IE5.5+不会有关闭提示
window.close();
//--
</script>

[分页显示记录]============================================================================================================
一.
<%
dim MaxPerPage
dim totalPage
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>

二.
<%
set rs=server.createobject("adodb.recordset")
sql="select top 20 * from person order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有任何人才信息"
else
rs.pagesize=10
MaxPerPage=rs.pagesize
totalPage=rs.pagecount
if CurrentPage<1 then
CurrentPage=1
end if
if CurrentPage>totalPage then
CurrentPage=totalPage
end if
if CurrentPage>1 then
rs.move (CurrentPage-1)*MaxPerPage
dim bookmark
bookmark rs.bookmark
end if
i=1
do while not rs.eof and i<=10
%>
......本页显示的数据
<%
i=i+1
rs.movenext
loop
end if
rs.close
%>

三.
<a href="allrencai.asp?page=1>第一页 &nbsp</a>
<a href="allrencai.asp?page=<%=CurrentPage-1%>上一页  </a>
<a href="allrencai.asp?page=<%=CurrentPage+1%>">下一页  </a>
<a href="allrencai.asp?page=<%=totalPage%>最末页</a>
按照上面的模式套进去就可以了,应该没什么问题!

[获取用户IP]============================================================================================================
request.servervariables("remote_addr")

[对象的显示与隐藏(style.display的应用)]============================================================================================================
document.name.style.display="none"; //隐藏
document.name.style.display="block"; //显示

[改变文本字体大小]============================================================================================================
<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>
<TABLE>
<TR>
<TD id="fontzoom">1234fsdfsdfasd234234311dfasdfsd23</TD>
<TD><a href="javascript:fontZoom(12)">12</a></TD>
<TD><a href="javascript:fontZoom(18)">18</a></TD>
</TR>
</TABLE>

[随机抽取记录]============================================================================================================
rs.moveFirst
randomize
rs.move int(rnd*rs.recordCount)

[获取ID为R1的RADIO的值]============================================================================================================
<FORM name="form1" METHOD=POST ACTION="">
<INPUT type=radio value=l name="r1">左对齐
<INPUT type=radio value=r name="r1">右对齐
<INPUT type=radio CHECKED value=m name="r1">中间对齐
<INPUT type=radio value=s name="r1">两端对齐
<INPUT TYPE="button" name="cmd" value="getValue" onclick="getValue()">
</FORM>
<script language="javascript">

</script>

[向一个frame中载入页面]============================================================================================================
<HTML>
<HEAD>
<script language="JavaScript">

</script>
</HEAD>
<BODY>
<FORM NAME="buttons">
<INPUT TYPE="button" VALUE="同时载入两份文件" onClick="loadtwo(‘’frtest1.html‘’,
‘’frtest2.html‘’)">
</FORM>
</BODY>
</HTML>

[ASP动态输出一个图片或FLASH]============================================================================================================
<%
if rsDB("fileType")<>"SWF" then
%>
<a href="<%=rsDB("linkURL")%>" name="logoIMGLINK" target="_blank"><img src="/admin/adver/upload/<%=rsDB("id")%>.<%=rsDB("filetype")%>" width="550" height="100" name="logoIMG" border="0"></a>
<%
else
response.Write("<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""550"" height=""100""> <param name=""movie"" value=""/admin/adver/upload/"+cstr(rsDB("id"))+"."+rsDB("filetype")+"""> <param name=""quality"" value=""high""> <embed src=""/admin/adver/upload/"+cstr(rsDB("id"))+"."+rsDB("filetype")+" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""550"" height=""100""></embed></object>")
end if
%>

[连接SQL数据库]============================================================================================================
set dcnDB = server.createobject("ADODB.CONNECTION")
dcnDB.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=帐号;pwd=密码;Initial Catalog=表名;Data Source=数据库IP(localhost本地)"
set rsDB = server.createobject("ADODB.RECORDSET")

[模糊查找(SQL数据库)]============================================================================================================
sql="SELECT * FROM [USER] WHERE User_Name like ‘’%XXXXX%‘’"

[SQL数据库中时间的表示方法]============================================================================================================
sql="SELECT * FROM [USER] WHERE [date]<‘’2004-4-7‘’"

[浮动广告]============================================================================================================
第一步:把如下代码加入<head>区域中
<script language="JavaScript">

</script>
<style type="text/css">

#superball {
position:absolute;
left:0;
top:0;
visibility:hide;
visibility:hidden;
width:40;
height:40;
}

</style>

第二步:把如下代码加入区域中：
16:16 2004-4-11

[判断文件是否存在]=============================================================================================
Set fs = server.CreateObject("scripting.filesystemobject")
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

[用WebEasyMail发送邮件]==================================================================================
‘’以下是一段找回密码的过程！
sub Send_EM()

Dim mailsend
Dim sender
str="尊敬的"&request("PSQname")&":"
str=str&"<p>"
str=str&"<br/>"
str=str&"    您登录密码为:"&rsDB("Password")&"，请务必记住此登陆码，<br/>因为您必须以此登陆码才能登陆本站。"
str=str&"<br/>"
str=str&"    如果您注册的是高级会员，请等待验证和通知。"
str=str&"<br/>"
str=str&"    希望能给您带来新的收获，顺祝收成日丰!"
str=str&"<br/>"
str=str&"<hr>"
str=str&"<br/>"
str=str&"    Road Lab Xi‘’an China"
str=str& "    E-mail:webmaster@roadhome.net"

Set mailsend = Server.CreateObject("easymail.MailSend")
mailsend.CreateNew "webmaster@roadhome.net","登录密码"
‘’ 发信人名称
mailsend.MailName = "Road Lab Xi‘’an China"
mailsend.EM_To =rsDB("email")
‘’收件人邮件地址
mailsend.EM_Subject = "找回密码!!" ‘’邮件主题"
mailsend.EM_HTML_Text =str
mailsend.useRichEditer = true
mailsend.send
set mailsend=nothing
end sub

[过滤html标签获得纯字符]====================================================================================
<SCRIPT LANGUAGE="vbScript">
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ‘’建立变量。
Set regEx = New RegExp ‘’建立正则表达式。
regEx.Pattern = patrn‘’设置模式。
regEx.IgnoreCase = True ‘’设置是否区分字符大小写。
regEx.Global = True ‘’设置全局可用性。
Set Matches = regEx.Execute(strng)‘’执行搜索。
dim rtStr
rtStr=strng
For Each Match in Matches‘’遍历匹配集合。
rtStr=replace(rtStr,Match.value,"")
Next
RegExpTest = rtStr
End Function
Content=RegExpTest("<.*?>", Content)
</SCRIPT>

[解决XMLHTTP POST数据乱码问题]===============================================================================
function getValue()

dim xmlDom
set xmlDom=createobject("MSXML2.XMLHTTP")
xmlDom.open "POST","http://dheart.51.net/ip/index.php?ip=10.100.1.11",false
xmlDom.send
msgbox(bytes2BSTR(xmlDom.responsebody))
end function
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

[SQL修改库结构]
strsql="ALTER TABLE product ADD orderID int NULL"
conn.execute(strsql)

[把DOC转成HTML文件]=============================================================================================
<HTML>
<HEAD>
<TITLE>WalkingPoison‘’s Word-to-HTML sample</TITLE>
<script language=javascript>
function saveword(){
var oWordApp=new ActiveXObject("Word.Application");
var oDocument=oWordApp.Documents.Open("C:\\temp.doc");
oDocument.SaveAs("C:\\test.htm",8)
oWordApp.Quit();
getDOC.innerHTML=""
}
function getIframeDoc(){
alert(iframeDOC.value);
}
</script>
</HEAD>
<BODY>
Click the "save" button to save the file "C:\test.doc" to "C:\test.htm":
<input type=button onclick="saveword()" value=save>
<button onclick="getIframeDoc()">GetDoc.HTML</button>
<P> </P> <iframe src=‘’c:\test.htm‘’ id=‘’iframeDOC‘’></iframe>
<div id="getDOC"></div>
</BODY>
</HTML>

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > 自动测试脚本语言 >