帮忙啊！！asp小问题

2025-01-23 23:29:14

推荐回答（2个）

回答1：

下面这段绝对没问题，有问你加我QQ：17795300

信息统计息统计
服务器正在运行的端口：<%=Request.ServerVariables("server_port")%>	脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器名称：<%=Request.ServerVariables("SERVER_SOFTWARE")%>	服务器IP：<%=Request.ServerVariables("LOCAL_ADDR")%>
站点物理路径：<%=Request.ServerVariables("path_translated")%>	虚拟路径：<%=Request.ServerVariables("server_name")%>
服务器Application数量：<%=Application.Contents.Count%> 个	服务器Session数量：<%=Session.Contents.Count%> 个
服务器当前时间：<%=now()%>	脚本连接超时时间：<%=Server.ScriptTimeout%> 秒

主机环境变量
项目	值
服务器的域名	<%=Request.ServerVariables("server_name")%>
服务器的IP地址	<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器操作系统	<%=Request.ServerVariables("OS")%>
服务器解译引擎	<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器软件的名称及版本	<%=Request.ServerVariables("SERVER_SOFTWARE")%>
服务器正在运行的端口	<%=Request.ServerVariables("server_port")%>
服务器CPU数量	<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个
服务器Application数量	<%=Application.Contents.Count%> 个
服务器Session数量	<%=Session.Contents.Count%> 个
请求的物理路径	<%=Request.ServerVariables("path_translated")%>
请求的URL	http://<%=Request.ServerVariables("server_name")%><%=Request.ServerVariables("script_name")%>
服务器当前时间	<%=now()%>
脚本连接超时时间	<%=Server.ScriptTimeout%> 秒

<%
Dim theInstalledObjects(16)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "MSWC.PermissionChecker"
theInstalledObjects(7) = "Scripting.FileSystemObject"
theInstalledObjects(8) = "adodb.connection"
theInstalledObjects(9) = "SoftArtisans.FileUp"
theInstalledObjects(10) = "SoftArtisans.FileManager"
theInstalledObjects(11) = "JMail.Message"
theInstalledObjects(12) = "CDONTS.NewMail"
theInstalledObjects(13) = "Persits.MailSender"
theInstalledObjects(14) = "LyfUpload.UploadFile"
theInstalledObjects(15) = "Persits.Upload.1"
theInstalledObjects(16) = "w3.upload"
For i=0 to 16
Response.Write "" & vbCrLf
Next
%>

组件支持情况
组件名称	支持及版本
" & theInstalledObjects(i) & " " select case i case 7 Response.Write "(FSO 文本文件读写)" case 8 Response.Write "(ACCESS 数据库)" case 9 Response.Write "(SA-FileUp 文件上传)" case 10 Response.Write "(SA-FM 文件管理)" case 11 Response.Write "(JMail 邮件发送)" case 12 Response.Write "(WIN虚拟SMTP 发信)" case 13 Response.Write "(ASPEmail 邮件发送)" case 14 Response.Write "(LyfUpload 文件上传)" case 15 Response.Write "(ASPUpload 文件上传)" case 16 Response.Write "(w3 upload 文件上传)" end select Response.Write "	" If Not IsObjInstalled(theInstalledObjects(i)) Then Response.Write "×" Else Response.Write "√ " & getver(theInstalledObjects(i)) & "" End If Response.Write "

<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
''''''''''''''''''''''''''''''
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%>

回答2：

很简单的原因嘛。

你把双引号写成大写了！！！
<% Set MyObj=Server.CreateObject(“MSWC.BrowserType”) %>

改为：

<% Set MyObj=Server.CreateObject(\"MSWC.BrowserType\") %>

我测试过了，一些正常。

如果你不能显示这有可能是，IE 6.0以上版本的这个组件还没有更新，因此随意使用会出错。

最新问答

可以帮我算个命吗？谢谢

山东省枣庄市是在哪个专区的基础上于何时成立的？

有没有人知道联想电脑硬盘里面的照片被删除怎么恢复回来？

您好，您上次说中粮地产的面试经历，你接到的是一个韶关的手机号码打来的面试吗？

在电脑上怎么用爱思助手把歌弄到qq音乐上

手刹电动车怎么开，是先刹车再加油门还是直接慢慢加油门开的啊

如何减少笔记本电脑键盘磨损

4g手机有什么移动卡流量多价格实惠

win8真三国无双6with猛将传应用程序无法启动并行配置不正确

阜阳的历史名人有那些？