为什么ASP代码反翻译软件无法翻译!能否帮我翻译一下??
发布网友
发布时间：2022-04-23 17:31
我来回答
共2个回答
热心网友
时间：2023-01-29 14:21
<%
sub othersize(names)
dim fso,path,ml,mlsize,dx,d,size
set fso=Server.CreateObject("Scripting.FileSystemObject")
path=server.mappath("..\Images")
ml=left(path,(instrrev(path,"\")-1))&"\"&names
On Error Resume Next
set d=fso.getfolder(ml)
If Err Then
err.Clear
Response.Write "<font color=red>提示：没有“"&names&"”目录</font>"
'Response.End()
End If
mlsize=d.size
size=mlsize
dx=size & " Byte"
if size>1024 then
size=(Size/1024)
dx=formatnumber(size,2) & " KB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " GB"
end if
response.write dx
end sub
sub allsize()
dim fso,path,ml,mlsize,dx,d,size
set fso=Server.CreateObject("Scripting.FileSystemObject")
path=server.mappath("../index.asp")
ml=left(path,(instrrev(path,"\")-1))
set d=fso.getfolder(ml)
mlsize=d.size
size=mlsize
dx=size & " Byte"
if size>1024 then
size=(Size/1024)
dx=size & " KB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " GB"
end if
response.write dx
end sub
Function Drawbar(drvpath)
dim fso,drvpathroot,d,size,totalsize,barsize
set fso=Server.CreateObject("Scripting.FileSystemObject")
drvpathroot=server.mappath("../Images")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
On Error Resume Next
drvpath=server.mappath("../"&drvpath)
If Err Then
err.Clear
Response.Write "没有名为“"&drvpath&"”的目录，您可以修改文件以正确显示该目录的使用量。"
Response.End()
End If
set d=fso.getfolder(drvpath)
size=d.size
barsize=cint((size/totalsize)*400)
Drawbar=barsize
End Function
Function FileList(FolderUrl,FileExName)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set folder=fso.GetFolder(Server.MapPath(Trim(FolderUrl)))
Set file=folder.Files
FileList=""
For Each FileName in file
If Trim(FileExName)<>"" Then
If InStr(Trim(FileExName),Trim(Mid(FileName.Name,InStr(FileName.Name,".")+1,len(FileName.Name))))>0 Then
FileList=FileList&""&FileName.Name&"|"
End If
Else
FileList=FileList&"<a href='#'>"&FileName.Name&"</a><br>"
End If
Next
Set file=Nothing
Set folder=Nothing
Set fso=Nothing
End Function
%>
热心网友
时间：2023-01-29 15:39
解密后的文档
<%end sub%>
<%
sub othersize(names)
dim fso,path,ml,mlsize,dx,d,size
set fso=Server.CreateObject("Scripting.FileSystemObject")
path=server.mappath("..\Images")
ml=left(path,(instrrev(path,"\")-1))&"\"&names
On Error Resume Next
set d=fso.getfolder(ml)
If Err Then
err.Clear
Response.Write "<font color=red>提示：没有“"&names&"”目录</font>"
'Response.End()
End If
mlsize=d.size
size=mlsize
dx=size & " Byte"
if size>1024 then
size=(Size/1024)
dx=formatnumber(size,2) & " KB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " GB"
end if
response.write dx
end sub
sub allsize()
dim fso,path,ml,mlsize,dx,d,size
set fso=Server.CreateObject("Scripting.FileSystemObject")
path=server.mappath("../index.asp")
ml=left(path,(instrrev(path,"\")-1))
set d=fso.getfolder(ml)
mlsize=d.size
size=mlsize
dx=size & " Byte"
if size>1024 then
size=(Size/1024)
dx=size & " KB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " GB"
end if
response.write dx
end sub
Function Drawbar(drvpath)
dim fso,drvpathroot,d,size,totalsize,barsize
set fso=Server.CreateObject("Scripting.FileSystemObject")
drvpathroot=server.mappath("../Images")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
On Error Resume Next
drvpath=server.mappath("../"&drvpath)
If Err Then
err.Clear
Response.Write "没有名为“"&drvpath&"”的目录，您可以修改文件以正确显示该目录的使用量。"
Response.End()
End If
set d=fso.getfolder(drvpath)
size=d.size
barsize=cint((size/totalsize)*400)
Drawbar=barsize
End Function
Function FileList(FolderUrl,FileExName)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set folder=fso.GetFolder(Server.MapPath(Trim(FolderUrl)))
Set file=folder.Files
FileList=""
For Each FileName in file
If Trim(FileExName)<>"" Then
If InStr(Trim(FileExName),Trim(Mid(FileName.Name,InStr(FileName.Name,".")+1,len(FileName.Name))))>0 Then
FileList=FileList&""&FileName.Name&"|"
End If
Else
FileList=FileList&"<a href='#'>"&FileName.Name&"</a><br>"
End If
Next
Set file=Nothing
Set folder=Nothing
Set fso=Nothing
End Function
%>
为什么asp中的有些英语翻译不出来?
翻不出来就翻不出来嘛，不一定非要翻出来。
帮我翻译下ASP
这个是查询的 select 区域名称 from area 从表area 中查找“区域名称”字段 set rs=conn.execute("select 区域名称 from area")是执行查询语句 do while not rs.eof 就是记录集不为空的时候 接下来可能是：区域名称：<%=rs("区域名称")%> 要是有循环的话就是 < rs.movenext loop rs.close ...
大家知道去去哪里下载一个翻译软件叫trandos5.5以上版本么?谢谢大家了...
没见过这个软件。这里有一些翻译软件，看看有没有合适的。http://www.fane.cn/down_list.asp?c_id=3&s_id=4
有人能帮我翻译下吗
吱服器攻击及破郺游戏凹界公平之▲为，困由於或许是您几时的疏失所造成，故我们停止您帐号中所有游戏角 〃之使用权，於本公?进▲停权处分后，若您持续进▲相她之鯦规▲为，我们亦将依您她笱授予我们的游戏规章进▲服务。 当侦测到您的角〃有异常状况时，还会经过?日楷查，确ㄘ有异常情形?会将...
asp代码帮忙翻译一下什么意思
这是CSS代码
帮翻译下ASP代码
<!--#include file="Comm/Function.asp" --> '此文件包含comm文件夹下的Function.asp文件 < Set Qsite = New Site_Class 初始化对象site_Class 为Qsite Qsite.SiteConfig() 调用site_class里的函数SiteConfig Qsite.GotoErrPage() 调用site_class里的函数GotoErrPage > <!--#inc...
ASP代码翻译!
sql= "select * from productClasses order by viewOrder asc, classId desc"'定义sql语句,意思是由表productClasses中读取记得,按classid递减的方式排列 set rsc= server.CreateObject("adodb.recordset")'创建记录对象集 rsc.open sql, conn, 1, 1, 1 '用刚才创建的对象rsc的open方法打开数据库,...
帮我翻译一下这段ASP代码
应该是这样写 sql="select * from users where uname='"&uname&"' and upass='"&upass&"'" --从表users中选择字段uname等于变量"&uname&"和字段upass等于变量"&upass&"的数据 set rs=server.CreateObject("adodb.recordset") --定义rs链接数据服务 rs.open sql,conn,3,1 --打开数据库 ...
asp.net 页面如何实现在线翻译?
这个和语言无关吧，只需要在你的页面嵌入一段HTML代码就可以了，也就是把原来GOOGLE网页的那个表单代码抄回来就可以了，不过要注意的就是保存的时候记得把网页的代码改成UTF-8不然弹出来的是乱码。
请帮我翻译下
第一段：谢谢你的咨询(来信)，我们会尽快回复你的电子邮件或我们会做进一步的跟踪联系。剩下的段落就等别的高手来解决吧！我的英语水平有限，怕翻译错！
