ASP常见问题及解答(10)_自动测试脚本语言

ASP常见问题及解答(10)

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

1.关于table折行: table style=TABLE-LAYOUT: fixed width=200 border=0 cellspacing=0 cellpadding=7 bgcolor=#f7f7f7 tr td style=LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word dffadfdaqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqsfdffadfdasfdffa

1.关于<table>折行:
<table style="TABLE-LAYOUT: fixed" width="200" border="0" cellspacing="0" cellpadding="7" bgcolor="#f7f7f7">
<tr>
<td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word">
dffadfdaqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqsfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasf
</font></td>
</tr>
</table>

重点是"WORD-WRAP: break-word"把它去掉再看看就知道了.

2.批量录入在数据库的应用中比较广泛的，关于批量录入的方法也有好多种。
下面我就结合我实际中的应用，谈一下儿我是怎么实现的。
主要用到的是form的集合的概念，通过循环取的所有的集合内数据。
考虑到大家看着方便，我把它集成到了一个页面。
下面是具体的代码：
batchInput.asp
<%
‘’#####################################
‘’File Function:批量录入数据
‘’Author:Myhon
‘’Date:2003-8-19
‘’#####################################

‘’向数据库写入数据
SUB writeData()
dim recCnt,i
dim fieldName1,fieldName2,fieldName3
dim conn
dim sqlStr,connStr
connStr="Provider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa;PASSWORD="
set conn=Server.CreateObject("ADODB.Connection")
conn.open connStr ‘’建立数据库连接

recCnt=request.form("stu_num").count ‘’取得共有多少条记录
‘’批量录入数据
for i=1 to recCnt
fieldName1=trim(request.form("fieldName1")(i))
fieldName2=trim(request.form("fieldName2")(i))
fieldName3=trim(request.form("fieldName3")(i))
sqlStr="insert into myTable(fieldName1,fieldName2,fieldName3) values(‘’"
sqlStr=sqlStr & fieldName1 & "‘’,‘’"
sqlStr=sqlStr & fieldName2 & "‘’,‘’"
sqlStr=sqlStr & fieldName3 & "‘’)"
‘’response.write sqlStr
conn.execute(sqlStr)
next
END SUB

‘’显示成批录入的界面
SUB InputData()
dim recCnt,i
%>
<form name="bathInputData" action="" method="post">
<%
recCnt=cint(request.form("recCnt"))
for i=1 to recCnt
%>
<input type="text" name="fieldName1">
<input type="text" name="fieldName2">
<input type="text" name="fieldName3">
<%
next
%>
<br/>
<input type="submit" name="action" value="提交">
</form>
<%
END SUB

‘’指定要批量录入多少条记录
SUB assignHowMuch()
%>


<form name="form1" action="" method="post">
您要录入的记录的条数：<input type="text" name="recCnt">
<input type="submit" name="action" value="下一步>>">
</form>
<%
END SUB

if request.form("action")="下一步>>" then
Call InputData() ‘’显示成批录入界面
elseif request.form("action")="提交" then Call writeData() ‘’向数据库批量写入数据
else
Call assignHowMuch() ‘’显示指定录入多少条记录的界面
end if

%>

3.以动感下载系统为例:

打开文件 SoftDown.Asp 在：
if request.QueryString("ID")="" then
response.write "不能连接或者没有指定下载软件"
response.end
end if
的上面或者是下面加上下列代码

dim strReferer,domain,splDomain,isHttp
isHttp=false

‘’本站下载系统网址列表，不要带上http://
domain="sron.net,61.156.14.223,61.156.14.227"

splDomain=split(domain,",")
strReferer=Request.ServerVariables("HTTP_REFERER")
for iii = 0 to ubound(splDomain)
if instr(strReferer,trim(splDomain(iii)))>0 then isHttp=True
next
if isnull(strReferer) or isHttp=false then
Response.Write "下载链接来自其他网站，这是不允许的，<a href=""./"">请进入本站页面后再进行下载。</a>"
CloseDatabase
response.end
end if

本站下载系统网址列表就是访问你下载频道网址里的域名，比如你的下载频道可以用多个网址来访问，所以这里用逗号隔开.

4.无法写入cookie的常见问题
1.确定你的response.cookie代码在第一个<html>之前
2.设置cookies的截止日期response.cookie("cookiename").expires = expiresdate;

设置cookie的请求指定路径:
就是说你的cookie写入后，指定路径中的页面才有权得到这个cookie
例如：指定路径response.cookie("cookiename").path = "http://www.domain.com/path"
那么只有path目录中的页面才能得到request.cookie("cookiename")

5.vbscript的错误捕捉:

on error resume next ‘’打开错误捕捉
...
if err.number<>0 then ‘’err是vbs内置的对象，类似于try catch的exception
err.clear ‘’错误被处理了就要及时把错误标记清空
‘’输出自己的出错信息,或用err.description显示系统出错信息
end if

on error goto 0 ‘’关闭错误捕捉。

6.ServerVariables集合用于得到系统的环境变量用以下程序可以讲ServerVariables集合的所有内容名称都显示出来
<html>
<head></head>
<body>
<% for each item in request.servervariables
response.write("<p><b>"&item&"</b>:")
response.write(request.serverVariables(item))
next
%>
</body>
</html>
具体的系统环境变量如下：
Auth_Type 当用户访问一个被保护的脚本时，用于判断是否是一个有效用户
Content_Length 客户端所提交的正文的长度
Content_Type 提交的正文数据类型
Gateway_Interface 服务器所使用的CGI修订版本
Login_User 用户是否以Windows NT帐户登陆
Path_Info 客户端路径信息
Query_String 在一个HTTP请求的查询信息
Remote_Addr 发送请求的远程主机的ip地址，利用此地址可以知道访问这的来源
Remote_Host 发送请求的远程主机名，如果远端服务器不包含该信息，则返回空字符串
Request_Method 数据请求的方法
Script_Map url的基本部分
Script_Name 执行脚本的虚拟路径
Server_Name 该服务器的名称DNS的别名，IP地址及其制定的url路径
Server_Port 数据请求所使用的端口号
Server_Software 服务器端运行的软件名称及版本号
Server_Protocol 要求信息的协议及修订版本
URL 系统的URL路径
HTTP_REFERER 当通过链接到大当前页面时，HTTP_REFERER header 保存这个用户的来源

8.HTML文件标记
<html>
<head>

<html><head>
<TITLE>dbtable.asp</TITLE>
</head>
<body bgcolor="#FFFFFF">
<%
graphic="images/learnaspiconmain.gif"
HW = ReadImg(graphic)
Response.Write graphic & " Dimensions: " & HW(0) & "x" & HW(1)
& "<br/>"
response.write "<img src=""/" & graphic & """"
response.write height=""" & HW(0) & """
response.write width=""" & HW(0) & "">"
%>
</body></html>

The library that is included is:

<%
Dim HW

Function AscAt(s, n)
AscAt = Asc(Mid(s, n, 1))
End Function

Function HexAt(s, n)
HexAt = Hex(AscAt(s, n))
End Function

Function isJPG(fichero)
If inStr(uCase(fichero), ".JPG") <> 0 Then
isJPG = true
Else
isJPG = false
End If
End Function

Function isPNG(fichero)
If inStr(uCase(fichero), ".PNG") <> 0 Then
isPNG = true
Else
isPNG = false
End If
End Function

Function isGIF(fichero)
If inStr(uCase(fichero), ".GIF") <> 0 Then
isGIF = true
Else
isGIF = false
End If
End Function

Function isBMP(fichero)
If inStr(uCase(fichero), ".BMP") <> 0 Then
isBMP = true
Else
isBMP = false
End If
End Function

Function isWMF(fichero)
If inStr(uCase(fichero), ".WMF") <> 0 Then
isWMF = true
Else
isWMF = false
End If
End Function

Function isWebImg(f)
If isGIF(f) Or isJPG(f) Or isPNG(f) Or isBMP(f) Or isWMF(f)
Then
isWebImg = true
Else
isWebImg = true
End If
End Function

Function ReadImg(fichero)
If isGIF(fichero) Then
ReadImg = ReadGIF(fichero)
Else
If isJPG(fichero) Then
ReadImg = ReadJPG(fichero)
Else
If isPNG(fichero) Then
ReadImg = ReadPNG(fichero)
Else
If isBMP(fichero) Then
ReadImg = ReadPNG(fichero)
Else
If isWMF(fichero) Then
ReadImg = ReadWMF(fichero)
Else
ReadImg = Array(0,0)
End If
End If
End If
End If
End If
End Function

Function ReadJPG(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(167), 4)
HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
HW(1) = HexToDec(HexAt(s,1) & HexAt(s,2))
ts.Close
ReadJPG = HW
End Function

Function ReadPNG(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(24), 8)
HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
HW(1) = HexToDec(HexAt(s,7) & HexAt(s,8))
ts.Close
ReadPNG = HW
End Function

Function ReadGIF(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(10), 4)
HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1))
HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3))
ts.Close
ReadGIF = HW
End Function

Function ReadWMF(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(14), 4)
HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1))
HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3))
ts.Close
ReadWMF = HW
End Function

Function ReadBMP(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(24), 8)
HW(0) = HexToDec(HexAt(s,4) & HexAt(s,3))
HW(1) = HexToDec(HexAt(s,8) & HexAt(s,7))
ts.Close
ReadBMP = HW
End Function

Function isDigit(c)
If inStr("0123456789", c) <> 0 Then
isDigit = true
Else
isDigit = false
End If
End Function

Function isHex(c)
If inStr("0123456789ABCDEFabcdef", c) <> 0 Then
isHex = true
Else
ishex = false
End If
End Function

Function HexToDec(cadhex)
Dim n, i, ch, decimal
decimal = 0
n = Len(cadhex)
For i=1 To n
ch = Mid(cadhex, i, 1)
If isHex(ch) Then
decimal = decimal * 16
If isDigit(c) Then
decimal = decimal + ch
Else
decimal = decimal + Asc(uCase(ch)) - Asc("A")
End If
Else
HexToDec = -1
End If
Next
HexToDec = decimal
End Function
%>

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

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