CssTools Frequent page error #End ExternalSource

Frequent page error #End ExternalSource

Open hnpvqve opened this issue 4 years ago • 0 comments

Installed product versions

Visual Studio: 2019
This extension: 16.7.532.28833

Description

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="W_MVip.aspx.vb" Inherits="W_MVip" EnableViewState="false" %>

") If Val(GetRequest("Type")) = 0 AndAlso GetRequest("Action") = "" Then Response.Write("

") Else Response.Write("

") Response.Write("付费会员记录

    If GetRequest("Action") = "Add" Then Response.Write("<li class='on'>") Else Response.Write("<li>")
    Response.Write("<a href='?Action=Add' class='Add'>开通会员</a></li>")
    Response.Write("</ul>")


%>
<form id="FormSearch" class="FormSearch" method="post" name="FormSearch" action="<% Response.Write("?Type=" & GetRequest("Type")) %>">
  <select name="SKey" id="SKey">
    <option value="NameStr" <% if GetRequest("SKey") = "NameStr" Then Response.Write("selected") %>>搜索说明</option>
    <option value="PaidNO" <% if GetRequest("SKey") = "PaidNO" Then Response.Write("selected") %>>搜索单据号</option>
    <option value="Member" <% if GetRequest("SKey") = "Member" Then Response.Write("selected") %>>搜索会员ID</option>
    <option value="ID" <% if GetRequest("SKey") = "ID" Then Response.Write("selected") %>>搜索ID</option>
  </select>
  <input type="text" name="SName" id="SName" style="min-width: 220px;" autocomplete="off" value="<%Response.Write(GetRequest("SName")) %>" />
  <span>时间段：</span>
  <input name="CDate1" type="text" id="CDate1" value="<% Response.Write(GetRequest("CDate1")) %>" size="10" maxlength="20" class="Calendar" style="min-width: 120px" />
  <em>到 </em>
  <input name="CDate2" type="text" id="CDate2" value="<% Response.Write(GetRequest("CDate2")) %>" size="10" maxlength="20" class="Calendar" style="min-width: 120px" />
  <span>类型：</span>
  <select id="MoneyT" name="MoneyT" style="min-width: 80px;">
    <option selected="selected" value="">全部</option>
    <option value="0" <%if GetRequest("MoneyT") = "0" Then Response.Write("selected='selected'")  %>>充值</option>
    <option value="1" <% if val(GetRequest("MoneyT")) = 1 Then Response.Write("selected='selected'")  %>>转账</option>
    <option value="2" <% if val(GetRequest("MoneyT")) = 2 Then Response.Write("selected='selected'")  %>>消费</option>
    <option value="3" <% if val(GetRequest("MoneyT")) = 3 Then Response.Write("selected='selected'")  %>>返利</option>
    <option value="4" <% if val(GetRequest("MoneyT")) = 4 Then Response.Write("selected='selected'")  %>>提现</option>
  </select>
  <button type="submit" name="SumbitS" id="SumbitS" value="1" style="margin-left: 10px;" class="Btn1" onclick="this.form.target='_self';">查询</button>

</form>
<form id="Form1" runat="server">
  <table style="width: 100%; border-top: 3px solid #ddd;" border="0" class="TableCss">
    <tr class="Title">
      <td style="width: 150px;">开通时间</td>
      <td style="width: 100px;">开通类型</td>
      <td style="width: 220px;">开通账户</td>
      <td style="width: 60px;">姓名</td>
      <td style="width: 110px;">电话</td>
      <td style="width: 60px; text-align: center">付费金额</td>
      <td style="width: 100px;">开始时间</td>
      <td style="width: 100px;">到期时间</td>
      <td style="width: 100px;">开通时长</td>
      <td>付费单号</td>
      <td style="width: 160px;">备注信息</td>
      <td style="width: 60px;">状态</td>
    </tr>
    <%
      CmdStep = " where SiteID='" & SiteID & "'"
      'If GetRequest("SName") <> "" AndAlso GetRequest("SKey") <> "" Then CmdStep &= " and " & GetRequest("SKey") & " like '%" & GetRequest("SName").ToLower & "%'"
      'If GetRequest("CDate1") <> "" Then CmdStep &= " and CreatedDate>='" & Format(CDate(GetRequest("CDate1")), "yyyy-MM-dd 00:00:00") & "' "
      'If GetRequest("CDate2") <> "" Then CmdStep &= " and CreatedDate<='" & Format(CDate(GetRequest("CDate2")), "yyyy-MM-dd 23:59:59") & "' "
      'If GetRequest("MoneyT") <> "" Then CmdStep &= " and MoneyT=" & Val(GetRequest("MoneyT"))

      SQLPage("M_MVip" & CmdStep, CountRows, PageSize, PageCount)
      If CountRows > 0 Then
        For Each R As Data.DataRow In SQLTable("SELECT *  FROM M_MVip " & CmdStep & " ORDER BY CreatedDate desc,id", Val(GetRequest("Page")), PageSize).Rows
          Dim Tbl1 As Data.DataTable = SQLTable("select top 1 id, NameStr,RealName,Tel  from M_Member where id='" & R("Member") & "'")
    %>
    <tr>
      <td><%=Format(R("CreatedDate"), "yyyy/MM/dd HH:mm:ss") %></td>
      <td><%= R("NameStr")  %></td>
      <td><% 
            If R("ShopID") = "" Then
              Response.Write(PicView("", R("Member"), 2, "Member") & " ")
              If Tbl1.Rows.Count > 0 Then Response.Write(" <a href='?SKey=Member&SName=" & Tbl1.Rows(0)("id") & "'>" & Tbl1.Rows(0)("NameStr") & "</a>")
            Else
              Response.Write(PicView("", R("ShopID"), 2, "Member") & " ")
              If Tbl1.Rows.Count > 0 Then Response.Write(" <a href='?SKey=ShopID&SName=" & Tbl1.Rows(0)("id") & "'>" & Tbl1.Rows(0)("NameStr") & "</a>")

            End If

      %></td>
      <td><% If Tbl1.Rows.Count > 0 Then Response.Write(Tbl1.Rows(0)("RealName"))  %></td>
      <td><%   If Tbl1.Rows.Count > 0 Then Response.Write(Tbl1.Rows(0)("Tel"))   %></td>
      <td style="font-weight: bold; color: #ff0000;"><% Response.Write(Format(R("Price"), "0.00"))   %></td>
      <td><%=Format(R("StartDate"), "yyyy-MM-dd") %></td>
      <td><%=Format(R("StopDate"), "yyyy-MM-dd") %></td>
      <td><%= R("PaidNo")  %></td>
      <td><%= R("Remark")  %></td>
      <td><%

'select case val(R("State").ToString) ' Case 0 ' Response.Write("待审核") ' Case 1 ' Response.Write("正常") ' Case 2 ' Response.Write("失败") 'End Select

      %></td>

    </tr>
    <% Next
      end if
    %>
    <tr>
      <td style="text-align: center;">
        <input id="CheckAll" type="checkbox" title="全选/取消" onclick="CheckItemAll(this.form);" /></td>
      <td colspan="15">
        <input name="RowCount" type="hidden" id="RowCount" value="<%=PageSize%> " />
        <select name="BatchEdit" id="BatchEdit">
          <option value="1">批量审核通过</option>
          <option value="2">批量不通过</option>
        </select>
        <button type="button" name="BatchButton" id="BatchButton" value="1" runat="server" onclick="return BatchBtn();" class="Btn3">确认提交</button>
        <div class='PageList FR'>
          <% PageLink("?SKey=" & GetRequest("SKey") & "&SName=" & GetRequest("SName") & "&MoneyT=" & GetRequest("MoneyT") & "&Type=" & GetRequest("Type") & "&CDate1=" & GetRequest("CDate1") & "&CDate2=" & GetRequest("CDate2") & "&Page=", PageCount, PageSize, CountRows)      %>
        </div>

      </td>
    </tr>
  </table>
</form>
<%ElseIf "Add".ToLower.Contains(GetRequest("Action").ToLower) Then%>
<h4 class="FormTitle" style="border-bottom: 3px solid #ddd;"><span>开通付费会员</span></h4>
<form id="Form2" runat="server">
  <table style="width: 100%; max-width: 900px;" border="0" class="TableEdit Mtop">
    <tr>
      <td style="text-align: right; width: 80px">
        <select name="Key" id="Key" style="background: #efefef">
          <option value="Tel" <% if GetRequest("Key") = "Tel" Then Response.Write("selected") %>>会员手机号</option>
          <option value="Email" <% if GetRequest("Key") = "Email" Then Response.Write("selected") %>>会员邮箱</option>
          <option value="QQ" <% if GetRequest("Key") = "QQ" Then Response.Write("selected") %>>QQ/微信号</option>
          <option value="NameStr" <% if GetRequest("Key") = "NameStr" Then Response.Write("selected") %>>账号呢称</option>
          <option value="ID" <% if GetRequest("Key") = "ID" Then Response.Write("selected") %>>会员ID</option>
        </select>
      </td>
      <td>
        <input name="Name" type="text" id="Name" size="20" value="<%  Response.Write(Tbl1.Rows(0)("Tel"))

#End ExternalSource

#ExternalSource ("E:\WebSite\Admin\W_MVip.aspx", 7) Response.Write(Format(R("Price"), "0.00"))

#End ExternalSource

#ExternalSource ("E:\WebSite\Admin\W_MVip.aspx", 8) __o = Format(R("StartDate"), "yyyy-MM-dd")

#End ExternalSource

#ExternalSource ("E:\WebSite\Admin\W_MVip.aspx", 9) __o = Format(R("StopDate"), "yyyy-MM-dd")

#End ExternalSource

#ExternalSource ("E:\WebSite\Admin\W_MVip.aspx", 10) __o = R("PaidNo")

#End ExternalSource

#ExternalSource ("E:\WebSite\Admin\W_MVip.aspx", 11) __o = R("Remark")

#End ExternalSource

#ExternalSource ("E:\WebSite\Admin\W_MVip.aspx", 12)

          'select case val(R("State").ToString)
          '  Case 0
          '    Response.Write("<em class='Badge1'>待审核</em>")
          '  Case 1
          '    Response.Write("<em class='Badge4'>正常</em>")
          '  Case 2
          '    Response.Write("<em class='Badge5'>失败</em>")
          'End Select

#End ExternalSource

#ExternalSource ("E:\WebSite\Admin\W_MVip.aspx", 13) Next End if

#End ExternalSource

#ExternalSource("E:\WebSite\Admin\W_MVip.aspx",14) __o = PageSize

#End ExternalSource

#ExternalSource("E:\WebSite\Admin\W_MVip.aspx",15) PageLink("?SKey=" & GetRequest("SKey") & "&SName=" & GetRequest("SName") & "&MoneyT=" & GetRequest("MoneyT") & "&Type=" & GetRequest("Type") & "&CDate1=" & GetRequest("CDate1") & "&CDate2=" & GetRequest("CDate2") & "&Page=", PageCount, PageSize, CountRows) %>" required="required" maxlength="30" style="min-width: 220px" />

开通类型：付款单号：

    <tr>
      <td style="text-align: right; vertical-align: top">备注说明：</td>
      <td>
        <textarea name="Remark" cols="80" rows="3" style="width: 700px; vertical-align: middle; background: #efefef;" maxlength="255"></textarea>
      </td>
    </tr>
  </table>
  <button type="submit" name="SubmitA" id="SubmitA" value="1" class="Btn2" runat="server" onclick="return true;" style="margin-left: 120px;">确认充值</button>
  <button type="button" style="margin-left: 20px;" onclick="javascript: history.back(-1)" class="Btn5">取消返回</button>
</form>
<%  End If%>
<script>
  $(".Calendar").showCalendar()
</script>

Steps to recreate

Replace this
text with
the steps
to recreate

Current behavior

Explain what it's doing and why it's wrong

Expected behavior

Explain what it should be doing after it's fixed.

Aug 24 '20 02:08 hnpvqve

CssTools CssTools copied to clipboard

Frequent page error #End ExternalSource

Installed product versions

Description

Steps to recreate

Current behavior

Expected behavior

CssTools
CssTools copied to clipboard