标签: asp-classic

会话在 iis 服务器 8 上的经典 ASP 中不起作用

我的会话变量未在 iis 服务器 8 上托管的经典 asp 网页中初始化,我已经在会话状态功能视图以及 IIS 服务器 8 的 ASP 部分的调试属性中配置了会话属性,

请帮助我,在将我的整个网站从带有 IIS7 的 Windows Server 2008 r2 转移到带有 IIS8 的 Windows Server 2012 r2 后,我遇到了这个问题

在 IIS 7 上,我没有遇到任何有关此会话变量初始化的问题

任何帮助,将不胜感激

提前致谢

iis iis-7 asp-classic

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

变量缺失值

我正在尝试使用经典 ASP/VBScript 填充网站上的<select><option>这些值是从 SQL Server 数据库读取和获取的,其代码类似于:

SET rows = dbc.execute(SQL)
    IF NOT rows.EOF THEN
        DO WHILE NOT rows.EOF
             %>  
                <option value="<%=rows("specialty")%>"><%=rows("specialty")%></option>
             <%    
             rows.moveNext
        LOOP
    ELSE    
END IF

rows.close
SET rows = NOTHING
Run Code Online (Sandbox Code Playgroud)

我遇到的问题是似乎只有一侧<%=rows("specialty")%>进行评估。

我得到<option value="<%=rows("specialty")%>"><%=rows("specialty")%></option>

<option value="fromRow1"></option>
<option value="fromRow2"></option>
<option value="fromRow3"></option>
Run Code Online (Sandbox Code Playgroud)

我得到<option value="test"><%=rows("specialty")%></option>

<option value="test">fromRow1</option>
<option value="test">fromRow2</option>
<option value="test">fromRow3</option>
Run Code Online (Sandbox Code Playgroud)

人们应该采取什么措施来缓解这一问题?

html sql sql-server vbscript asp-classic

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

使用 ASP VBScript 的 XML/SelectNodes 问题

显示 XML 信息时遇到问题。我认为这与选择正确的节点(公司名称)有关。需要新的意见...有一种感觉,我可能忽略了一些非常简单的事情。代码如下。

XML

<GovTalkMessage>
    <EnvelopeVersion>1.0</EnvelopeVersion>
    <Header>
        <MessageDetails>
            <Class>CompanyDetails</Class>
            <Qualifier>response</Qualifier>
            <TransactionID>9999999999999</TransactionID>
            <GatewayTest>TRUE</GatewayTest>
            <GatewayTimestamp>2013-09-24T17:51:41-00:00</GatewayTimestamp>
        </MessageDetails>
        <SenderDetails>
            <IDAuthentication>
                <SenderID>******</SenderID>
                <Authentication>
                    <Method>CHMD5</Method>
                    <Value></Value>
                </Authentication>
            </IDAuthentication>
            <EmailAddress>rte@rrfsolicitors.com</EmailAddress>
        </SenderDetails>
    </Header>
    <GovTalkDetails>
        <Keys/>
    </GovTalkDetails>
    <Body>
        <CompanyDetails>
            <CompanyName>MILLENNIUM STADIUM PLC</CompanyName>
            <CompanyNumber>03176906</CompanyNumber>
            <RegAddress>
                <AddressLine>MILLENNIUM STADIUM</AddressLine>
                <AddressLine>WESTGATE STREET</AddressLine>
                <AddressLine>CARDIFF</AddressLine>
                <AddressLine>CF10 1NS</AddressLine>
            </RegAddress>
        </CompanyDetails>
    </Body>
</GovTalkMessage>
Run Code Online (Sandbox Code Playgroud)

ASP 代码:

Set XMLDom = CreateObject("MSXML2.DomDocument.6.0")
XMLDom.Async = False
XMLDom.LoadXML (theXML)

theNode = "/GovTalkMessage/Body/CompanyDetails"

Set NodeList = XMLDom.SelectNodes(theNode)
nodeCount = XMLDom.SelectNodes(theNode).Length
If XMLDom.ParseError = 0 Then
    Response.Write(nodeCount)
    For Each Node in NodeList 
        response.Write(Node.Text & …
Run Code Online (Sandbox Code Playgroud)

xml vbscript asp-classic

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

MS Access:没有为一个或多个必需参数给出值

我正在尝试对 MS Access 数据库运行以下查询(从 .asp 页面):

SELECT firstname, lastname, emp_id FROM employees ORDER BY firstname
Run Code Online (Sandbox Code Playgroud)

但是,我收到一条错误消息

没有为一个或多个必需参数给出值。

现在,如果我排除“emp_id”(主键)字段,查询运行正常。我已确保该字段存在并且查询中没有拼写错误。

如果我通过 MS Access GUI 运行查询,则会弹出一个窗口,要求我为 emp_id 字段输入“参数值”。这可能就是它不起作用的原因,以及为什么会发生这种情况?

从数据库获取员工:

Function GetEmployees()

    Dim employeesRS, sqlGetEmployees, employeesList, e

    Set employeesList = CreateObject("System.Collections.ArrayList")

    sqlGetEmployees = "SELECT firstname, lastname, emp_id FROM employees ORDER BY firstname"

    Set employeesRS = db.connTb.execute(sqlGetEmployees) 'Custom class to simplify db-querying

    While Not employeesRS.EOF

        Set e = new Employee

        e.Firstname = employeesRS("firstname")
        e.Lastname = employeesRS("lastname")
        e.Id = employeesRS("emp_id")

        employeesList.Add(e)

        employeesRS.MoveNext
    Wend

    employeesRS.Close

    Set GetEmployees …
Run Code Online (Sandbox Code Playgroud)

vbscript ms-access asp-classic

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

vbscript正则表达式,两个字符串之间替换

我有这个xml:

<doc>
<ContactPrimaryEmail></ContactPrimaryEmail>
<ContactAlternateEmail></ContactAlternateEmail> 
<ContactPrimaryMobile>+00xxxxxx</ContactPrimaryMobile>
<ContactAlternateMobile></ContactAlternateMobile> 
</doc>
Run Code Online (Sandbox Code Playgroud)

我想在VBScript中应用正则表达式来替换属性ContactPrimaryMobile的内容+00xxxxxx ” ,只需更改数字:

<ContactPrimaryMobile>+00xxxxxx</ContactPrimaryMobile>
Run Code Online (Sandbox Code Playgroud)

我是 vbscripting 的新手,我创建对象和应用模式的技能有限,所以请您帮我转换此正则表达式以在 VBScript 中使用它:

(?<=\<ContactPrimaryMobile\>)(.*)(?=\<\/ContactPrimaryMobile)
Run Code Online (Sandbox Code Playgroud)

更新我得到这个:

对象不支持此属性或方法:“Submatches”

执行时:

Dim oRE, oMatches
Set oRE = New RegExp
oRE.Pattern = "<ContactPrimaryMobile>(.*?)</ContactPrimaryMobile>"
oRE.Global = True
Set oMatches = oRE.Execute("<doc><ContactPrimaryEmail></ContactPrimaryEmail><ContactAlternateEmail></ContactAlternateEmail><ContactPrimaryMobile>+00xxxxxx</ContactPrimaryMobile><ContactAlternateMobile></ContactAlternateMobile></doc>")
Wscript.Echo oMatches.Submatches(0)
Run Code Online (Sandbox Code Playgroud)

regex vbscript asp-classic

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

为 AWIS 创建 AWS v4 签名

多年来我们一直使用 AWS v2 签名,现已被 v4 取代。

我正在慢慢地完成所有步骤,但在第 3 步中遇到了困难,其中要求以二进制格式输出的 HMAC-SHA256 加密。 https://docs.aws.amazon.com/AlexaWebInfoService/latest/CalculateSignatures.html https://docs.aws.amazon.com/general/latest/gr/sigv4-calculate-signature.html

我需要在Classic ASP中执行此操作,我有编码 SHA256 的脚本,但我找不到任何可以二进制输出的脚本。

我得到的最近的是 Chilkat 组件,它似乎从 SHA256 哈希值输出二进制文件,但我不知道如何实现这一点: http ://www.chilkatsoft.com/refdoc/xChilkatCrypt2Ref.html#method72

谁能用脚本(asp、vbscript、javascript)或 Chilkat(或其他)组件为我指明正确的方向?真正引起问题的是二进制输出。

提前谢谢了

asp-classic amazon-web-services chilkat

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

VbScript中的正则表达式?

VbScript是否具有Regex的本机实现?我需要在旧的ASP应用程序上验证电子邮件地址.

任何指针都会很棒.

regex email vbscript asp-classic

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

经典的asp,excel,停止领先0(零)被删除

我正在使用查询结果填充excel工作表.在结果集中是一个"描述"字段,它基本上可以包含任何内容,包括前缀为零的数字,如0000234.问题是,在将它们写入单元格时,前导零点会被淘汰,所以在上面的情况我最终得到234.如何确保将其视为文本字符串,并且描述字段中的内容只是按原样粘贴?

使用的线是:

 Response.Write vbTab & ResultSet(8,r)
Run Code Online (Sandbox Code Playgroud)

谢谢R.

excel asp-classic

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

在Classic ASP中填充SQL中的Dropdown

我试图强制用户在添加记录时只选择某些值.所以我自然而然地使用了一个下拉菜单,但我希望这些选项可以填充数据库中的特定字段.我想我会做一个Do/Loop但我显然做错了什么.

Dim dstrSQL
Dim drs
    dstrSQL = "SELECT EventID FROM Events"
    set conn2 = CreateObject("ADODB.Connection")
    conn2.open CONN_STRING
    set drs = conn2.execute(dstrSQL)
    conn2.close: set conn2 = nothing
Do
        Response.Write "<option value=" & drs.Fields(0) & " >" & drs.Fields(0) & "</option>"
        drs.MoveNext
Loop
Run Code Online (Sandbox Code Playgroud)

asp-classic drop-down-menu

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

vbscript中的数组

我在vbscript中写了一个跟随函数.

Function GetArray()
   Dim Array(2)
   Array(0) = "1"
   Array(1) = "2"
   GetArray = Array
End Function
Run Code Online (Sandbox Code Playgroud)

在页面中:

<%
   Dim IArray()
   IArray = GetArray()
%>
Run Code Online (Sandbox Code Playgroud)

但这不行.我怎样才能做到这一点?

vbscript asp-classic

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