标签: asp-classic

从另一个网站调用经典asp中的ServerXMLHTTP帖子接收xml

我正在将ASP网页的两面写到ASP网页对话中,其中原始网页将信息推送到接收网页,接收网页然后处理它并发回响应.原始网页必须使用以下代码开始对话:

url = "www.receivingwebsite.com\asp\receivingwebpage.asp
information = "UserName=Colt&PassWord=Taylor&Data=100"
Set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST", url, false
xmlhttp.setRequestHeader "Content-Type", "text/xml"
xmlhttp.send information
Run Code Online (Sandbox Code Playgroud)

...然后以某种方式接收页面中的ASP代码必须能够看到发送的信息.我已经尝试了我能想到的一切.信息不在请求对象querystring或表单数组中(因为内容类型是text/xml),我尝试将整个请求对象domdocument通过其load()和/或loadxml()方法传递给它.

无论我做什么,我都找不到信息,但我知道它正在被发送,因为当我更改内容类型时application/x-www-form-urlencoded,我可以在request.form数组中看到它.

那么当内容类型是text/xml什么时,我的信息在哪里?

xml serverxmlhttp asp-classic

1
推荐指数
1
解决办法
8724
查看次数

使用COM + .Net Interop 64位Windows Server 2008 IIS 7 Server.CreateObject失败的经典ASP

我遇到了与运行IIS7的64位Windows Server 2008服务器上的经典asp应用程序执行.Net dll相关的问题.情况如下:

我编写了一个.Net C#程序集来执行一些加密任务.通过从ServicedComponent继承,可以将此程序集用于传统ASP环境,确保assemblyinfo文件具有ComVisible(true)属性,并且已使用"regsvcs"命令行进行安装.

在我自己的桌面上测试(运行IIS6的XP)一切正常.迁移到IIS 7,Windows Server 2008时,我得到了臭名昭着的"ASP 0177 Server.CreateObject failed".

我试过以下无济于事:

  1. 确保在服务器上安装了ASP和脚本扩展功能,因为这不是IIS7的默认设置.这允许我执行简单的ASP命令,但不执行.net程序集的server.createobject.
  2. 为支持经典asp站点的应用程序池启用32位应用程序支持
  3. 使用NetworkService作为支持经典asp站点的应用程序池的标识
  4. 尝试使用regsvr32注册dll,失败了
  5. 我能够创建其他对象,如"scripting.filesystemobject"
  6. 将dll移动到wow64目录,然后使用regsvcs注册它们.
  7. 是的,当我执行regsvcs命令时,它们来自使用"RunAs"管理员启动的命令行.regsvcs命令已成功从64位和32位版本注册.但是,当从经典的asp应用程序中使用时,它会失败.

这个问题是密切相关的这一个.但是,我认为这个问题与使用服务器上的工具更相关,而不是与我类似的程序问题.

任何人都有更多想法尝试?

64-bit iis-7 asp-classic

1
推荐指数
1
解决办法
2万
查看次数

如何以其本机格式获取SQL Server Date?

我需要从SQL Server数据库(SQL Server 2000)获取日期,日期存储如下:

2009-09-30 00:00:00.000
Run Code Online (Sandbox Code Playgroud)

我想将此日期传递给Classic ASP函数,以便在其他地方的数据库中使用此日期,但是当我得到日期时,它会将我的ASP代码转换为依赖于语言环境的版本,例如:

30/09/2009
Run Code Online (Sandbox Code Playgroud)

我只是希望日期原样格式化日期,所以它再次正确似乎是不必要的,虽然如果这是唯一的方法那么好 - 是否有任何方式将其视为字符串数据所以它保持这样,所以它可以插入以相同的日期返回数据库,无需转换?

sql sql-server date sql-server-2000 asp-classic

1
推荐指数
1
解决办法
4888
查看次数

根据Recordset NULL值隐藏<TR>标记

我正在使用Microsoft SQL Server 2005存储过程在HTML表中发布记录.在HTML表格中,我有以下字段的行:条目号,开放日期,说明和所有者.

有时,db表中的owner字段将为NULL.发生这种情况时,我有ASP响应.在与所有者对应的HTML表行中写入"N/A".但是,我想避免这种情况,因为它似乎是多余的.相反,如果db中的owner字段为NULL,我希望有一种方法可以完全消除该表行.我该怎么做呢?我正在使用Javascript,经典ASP和SQL Server 2005.我的代码如下.注意 - 我完全是新手.谢谢.

'Declare Variables
Dim CN, RS, vOutputType, vSQL, vNumber, vOwner

'Connection from includes file
Set CN = GetDataConnection

vOutputType = Request.QueryString("ot")

If Request.QueryString("txtNumber") <> "" Then
vNumber = Rtrim(Request.QueryString("txtNumber"))
End If

If Request.QueryString("cboOwner") <> "" Then
    vOwner = Rtrim(Request.QueryString("cboOwner"))
End If

If vNumber <> "" Or vOwner <> "" Then

vSQL = "spReport "
vSQL = vSQL & "@vNumber = '" & vNumber & "', "
vSQL = vSQL & "@vOwner = …
Run Code Online (Sandbox Code Playgroud)

javascript sql-server-2005 asp-classic

1
推荐指数
1
解决办法
1136
查看次数

vbscript Classic ASP正则表达式VBScript运行时(0x800A01A8)

好的,这是问题所在:

当我尝试运行以下脚本时收到此错误消息

Dim rg
Dim match

Set rg = New RegExp

rg.Pattern = "Mod Read Access"
rg.Global = True

roles = Session("Roles")
Set match = rg.Test(roles)
Run Code Online (Sandbox Code Playgroud)

它在rg.Test(角色)点窒息.

我怀疑我可能做错了,因为我通常不用asp经典编程.我究竟做错了什么?

regex asp-classic

1
推荐指数
1
解决办法
2037
查看次数

Javascript显示/隐藏正确的div

我有一个页面,下拉有3个项目:

<select name="orderOption" id="orderOption">
<option value="1">Item 1</option>
<option value="2">Item 2</option>
<option value="3">Item 3</option> 
</select>
Run Code Online (Sandbox Code Playgroud)

目前有Javascript根据该选择显示或隐藏具有适当类的div.

function orderOptionChanged() {
        var e = document.getElementById("orderOption");
        var orderOption = e.options[e.selectedIndex].value;

        if (orderOption == "1") {
            $('.OrderOption1').show();
            $('.OrderOption2,.OrderOption3,').hide();
        }
Run Code Online (Sandbox Code Playgroud)

这适用于其中的3个,但现在他们想要25个.我需要一种方法来只选择一个选项而不必全部写出来.我之前从未使用过Javascript,所以这对我来说都是新手.

javascript jquery asp-classic

1
推荐指数
1
解决办法
125
查看次数

匹配和替换两个单词之间的单词

我有这个字符串例如:

one two three four START four five four five six END seven
Run Code Online (Sandbox Code Playgroud)

我想在其中搜索单词"four"以用REPLACED替换它,这将给出

one two three four START REPLACED five REPLACED five six END seven
Run Code Online (Sandbox Code Playgroud)

我知道START(.*)END会在两个分隔符之间给出单词.我试过了START(?<four>)END,但它什么都没有.

我在Vbscript工作.

regex vbscript asp-classic

1
推荐指数
1
解决办法
1341
查看次数

如何循环ASP中的每个Recordset

我需要循环帮助,我正在尝试创建一个带子菜单的菜单,在我的数据库中,我有一个名为tblMenu的表,它有五个字段(link_position,link,link_name,link_title,sub_menu)

link_position字段用于排序菜单项的位置,

link field存储菜单Item的链接,

link_name包含菜单项的名称,

link_title包含菜单项的链接标题,

sub_menu存储菜单的子项(下拉列表).

这是tblMenu的预览

在此输入图像描述

这是循环代码

<ul>
<%
msql = "SELECT * FROM tblMenu ORDER BY [link_position] ASC"
Set RS = Server.CreateObject("ADODB.Recordset")
Set RSsub = Server.CreateObject("ADODB.Recordset")
RS.Open msql, Conn, 1,3
SET RSsub = Conn.execute ("SELECT * FROM tblMenu ORDER BY [link_position] ASC")

If Not RS.EOF Then
Do
Response.Write("<li><a href=""" & RS("link") & """ title =""" & RS("link_title") & """>" & RS("link_name") & "</a>" …
Run Code Online (Sandbox Code Playgroud)

ms-access asp-classic

1
推荐指数
1
解决办法
7403
查看次数

ASP Classic中的ContentType在Chrome中运行时未创建Excel电子表格

我在我公司的SaS项目中运行了一个旧的ASP Classic应用程序.它的作用是在Excel电子表格中导出主要报告.
问题是:令人惊讶的是,它恰好在...... IE中完美运行.所有版本.Chrome似乎已经过了 Response.ContentType指令,并尝试将生成的文件保存为.ASP文件格式......当然,这种情况非常糟糕.
到目前为止,我们所做的一切就是要求我们的客户和支持服务员只需将浏览器更改为旧的,不可靠的浏览器(例如IE).但是,我们刚刚将一个项目卖给了一个客户,其浏览器被官方锁定为Google Chrome.
所以...我不知道如何解决这个问题.
我的ContentType指令是

    Response.ContentType = "application/vnd.ms-excel"
Run Code Online (Sandbox Code Playgroud)

接下来,创建具有通用html结构的表.

请帮忙!!:d

excel content-type google-chrome asp-classic

1
推荐指数
1
解决办法
6285
查看次数

创建一个方法,其中参数之一可以是数组或字符串

我正在转换旧的经典ASP方法进行数据记录。参数之一可以是数组或字符串。我要声明什么类型的变量?我尝试将其声明为对象,然后测试,以查看它是否为数组。但是,我似乎无法解析出数组内容(应该是一个简单的字符串数组)。

这是经典ASP代码的一个片段:

               Public function security(u,a,d)
' -------------------------------------------------------
' Write to tbl_log_security, returning a 1-Pass or 0-Fail
' -------------------------------------------------------
    u = u + 0
    af = u
    if len(request.Cookies("userid")) > 0 then af = request.Cookies("userid")
    security =                                      1 ' Success
    Dim objCommandLog
    Set objCommandLog =                                Server.CreateObject("ADODB.Connection")   
    objCommandLog.open =                               application("connVRVprimary")
    Err.Clear
    if isarray(d) then
        for I = 0 to ubound(d)
            strDetails = strDetails &               chr(13) & "Detail " & I & ": " & d(i) & " "
        next
    elseif len(d) > …
Run Code Online (Sandbox Code Playgroud)

c# parameters methods asp-classic

1
推荐指数
2
解决办法
60
查看次数