我有一个循环,在.ini文件中找到重复的行.我可以愉快地找到重复的行,并使用FileSystemObject将新行写入文件,但是...我似乎无法找到如何删除重复的行.我想要做的是删除行号,因为我已经确定了相关的行号.
是否有本地方法来执行此操作,还是重写文件减去重复行的情况?
任何帮助是极大的赞赏.
谢谢.
我找到重复条目的方法如下:
Do While Not file.AtEndOfStream
intLineNumber = intLineNumber + 1
strReadLineText = file.ReadLine
If strSearchText <> "" And InStr(strReadLineText, strSearchText) > 0 Then
session("message") = "Line Exists on " + Cstr(intLineNumber)
'' # delete duplicate line...
End If
Loop
file.Close()
Run Code Online (Sandbox Code Playgroud)
你可以看到我的评论在哪里,我希望删除找到的行.
我试图检查是否存在远程JPEG文件.如果是,则显示另一个显示另一个.ASP中是否有任何方法可以检查非本地文件?
我有一个不带任何参数的插入.
这是一种更好的做事方式?
Set writeConn = Server.CreateObject("ADODB.Connection")
Call OpenConnect(writeConn)
Set objCommand = Server.CreateObject("ADODB.Command")
objCommand.ActiveConnection = writeConn
objCommand.CommandText = insstmt
objCommand.Execute()
writeConn.Close()
Run Code Online (Sandbox Code Playgroud)
要么
Set writeConn = Server.CreateObject("ADODB.Connection")
Call OpenConnect(writeConn)
writeConn.Execute(InsStmt)
writeConn.Close()
Run Code Online (Sandbox Code Playgroud)
他们看到做同样的事情......谢谢!
最近我一直在写这样的参数化查询:
SQL = " INSERT INTO myTable (column1, column2, column3) VALUES (?, ?, ?); "
Set newParameter = cmdConn.CreateParameter("@column1", ad_Integer, ad_ParamInput, Len(input1), input1)
cmdConn.Parameters.Append newParameter
Set newParameter = cmdConn.CreateParameter("@column2", ad_Integer, ad_ParamInput, Len(input2), input2)
cmdConn.Parameters.Append newParameter
Set newParameter = cmdConn.CreateParameter("@column3", ad_Integer, ad_ParamInput, Len(input3), input3)
cmdConn.Parameters.Append newParameter
Run Code Online (Sandbox Code Playgroud)
我理解的是,在附加新参数时我使用了@ column1,这是将该参数分配给查询中的特定列...但最近已被告知.这引起了一些混乱,并有几个问题.
取上面的参数@ column1.该参数如何知道它将用于查询的第一个问号(?)?我是否必须以与问号相同的顺序附加参数,或者哪个顺序无关紧要?另外,如果我想将用户输入添加到两列中,我是使用两个参数还是可以使用相同的参数?
任何帮助感激不尽.这已经在我脑海里好几周了,所以真的很期待一个解释:)
我在经典的asp中调用存储过程
我正在添加我的参数:
set objParam =.CreateParameter("@Param",129,1,"3" ,Request.Form("Param"))
.Parameters.Append objParam
Run Code Online (Sandbox Code Playgroud)
在我这样的SQL中
@NomCentre varchar(3)
Run Code Online (Sandbox Code Playgroud)
但是当我的数据插入时,我总是有额外的空间来完成我的varchar的长度
示例:"i"变为"i"而"te"变为"te"
有人有一个想法谢谢
我在以下函数中收到标题中的错误:
function ExtractOptions(value)
dim index
index = InStr(1, value, ":")
ExtractOptions = CStr(Mid(value, index + 1, value.length - 1))
end function
Run Code Online (Sandbox Code Playgroud)
但是,当我将监视放在"值"上时,它表明它在ExtractOptions赋值语句中使用时包含一个字符串值,该语句是发生错误的位置.
这是调用代码,以防它提供任何见解:
<%
if not isnumeric(dictCart(Key)) then
%>
<TR>
<TD id="cart_item_options" class=<%=TextCCSStyle%> ALIGN="left"><%= ExtractOptions(dictCart(Key)) %></TD>
</TR>
<% end if %>
Run Code Online (Sandbox Code Playgroud) 我正在看一些古老的代码,并有以下代码行:
strResult = strResult + "<table>" & vbLf
output = PrintTableHead("Field Office Code","1")
strResult = strResult + PrintTableHead("Field Office Code","1")
strResult = strResult + "<tr>" & vbLf
Function PrintTableHead( TheTitle , TheColSpan )
strResult = "<tr><th colspan="
strResult = strResult + TheColSpan
strResult = strResult + " BGCOLOR=""#004D95"" align=center>" & vbLf
strResult = strResult + "<font face=""Time New Roman"" color=""#ffffff"" SIZE=3>" & vbLf
strResult = strResult + TheTitle
strResult = strResult + "</font></th></tr>" & vbLf
End Function
Run Code Online (Sandbox Code Playgroud)
当我尝试调试strResult时.它不会附加pIrntTableHead函数的内容.为什么这不起作用?我怎样才能重写这个以正确追加?
所以在 strResult …
我想从我的服务器上的.asp页面读取源代码,然后从中创建一个html页面.
我在某处读过你可以用webrequest做到但我找不到它.
任何意见,谢谢.
我正在尝试学习一种通过ajax json将数据发送到经典asp的方法,json成功调用了asp页面,但问题是数据无法到达后端,因此数据库无法根据修改后的排序进行修改
前面
<script>
$(document).ready(function(){
$( "#sortable" ).sortable({
update: function( event, ui ) {
alert(ui.item.index());
alert(ui.item.attr("id"));
var data={
'sort':ui.item.index()
}
$.ajax({
url: 'work.asp?action=update,
type: "POST",
contentType: "application/json; charset=utf-8",
data: JSON.stringify(data),
dataType: "json",
error: function (xhr, status, error) {
var err = eval("(" + xhr.responseText + ")");
alert(err.Message);
},
success: function (){
alert("success");
}
});
}
});
});
</script>
Run Code Online (Sandbox Code Playgroud)
背面我使用经典ASP,但我无法获取数据中的数据我该如何制作?
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("wawaaddatatable.mdb")
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
if request.QueryString("action")="update" then
Response.ContentType = "application/json"
Set rs …Run Code Online (Sandbox Code Playgroud) 我正在尝试使用经典的ASP抓取网页。为什么,因为我要在2个域中包含一个asp文件,而我不想更新2个副本。
我是整个Web抓取工具的新手,很难找到有关如何使用经典asp(不是我的喜好,而是我坚持的东西)的“ Dummies”教程。我不需要任何花哨的东西,只需从here.asp抓取整个页面源并将其发布在myotherpage.asp上即可。
在代码或教程中几乎没有帮助,将不胜感激。