如何提取两个字串之间的字串....急!!!!!!!!!!!!!!!!!

xwqtp 2003-12-04 08:18:31

请各路高手帮我写一个读取文件，并从文件中比较取得每行中如存在两字字串，并把两个字串之间的字串取出来！谢谢..
如:
<tr bgcolor=background-color: #FFFFFF;>
<td class=tablebody1> <a href=dispuser.asp?id=20308 target=_blank>是非曲直</a></td>
<td align=center class=tablebody2><a href=mailto:hanxin1983@sohu.com><img border=0 src=pic/email.gif></a></td>
<td align=center class=tablebody1>

把这里面的邮件取出来。。因为文件很多。。邮件很多。。请多多帮忙。。

从建立打开文件对象开始写一段给我，可直接运行的代码。谢谢!!!!!!

...全文

59 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

myxl 2003-12-04

打赏
举报

<%
str="<tr bgcolor=background-color: #FFFFFF;><td class=tablebody1> <a href=dispuser.asp?id=20308 target=_blank>是非曲直</a></td><td align=center class=tablebody2><a href=mailto:hanxin1983@sohu.com><img border=0 src=pic/email.gif></a></td><td align=center class=tablebody1>"
str=right(str,len(str)-instr(str,"mailto:")-6)
str=left(str,instr(str,".")+3)
Response.Write str
%>

somecom 2003-12-04

打赏
举报

用全文检索吧：
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>

<body>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"
Dim abc
abc=0
if request("path")<>"" then
path=request("path")
else
path="."
end if
main()
%>
<SCRIPT language=JavaScript type=text/JavaScript>

</script>
<html>
<body>
<form name="form1" method="post" action="">
<p>
<input name="path" type="text" id="path" size="20">
<input type="submit" name="Submit" value="提交">
</p>
</form>
</body>
</html>
<%
sub main()

on error resume next

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set uploadFolder=objFSO.GetFolder(Server.MapPath(path&"\"))
if err.number=0 then
abc=1
if request("filename")<>"" then
if objFSO.fileExists(Server.MapPath(""&path&"\"&request("filename"))) then
objFSO.DeleteFile(Server.MapPath(""&path&"\"&request("filename")))
else
response.write "未找到"&path&"/"&request("filename")&"<br>"
end if
end if

Set uploadFiles=uploadFolder.Files
filenum=uploadfiles.count
response.Write("在"&path&"文件夹找到"&filenum&"个文件<br>")
i=0
response.Write("<table cellpadding=""2"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center style=""table-layout:fixed;word-break:break-all"">")
response.Write("<tr align=center bgcolor=""#FFCC00"" >")
response.Write("<th width=""*"">文件地址</th>")
response.Write("<th width=""100"">大小</th>")
response.Write("<th width=""230"">最后访问</th>")
response.Write("<th width=""230"">上传日期</th>")
response.Write("<th width=""50"">管理</th>")
response.Write("</tr>")
for each upname in uploadfiles
i=I=1
if i<=filenum then
response.write "<td class=forumrow><a href="""&path&"/"&upname.name&""" target=_blank>"&upname.name&"</a></td>"
response.write "<td align=center>"& upname.size &" B </td>"
response.write "<td align=center>"& upname.datelastaccessed &"</td>"
response.write "<td align=center>"& upname.datecreated &"</td>"
response.write "<td align=center class=forumrow><a href='?filename="&upname.name&"&path="&request("path")&"'>删除</a></td></tr>"
end if
next
response.Write("</table>")
Set uploadFiles=nothing

else
abc=0
response.Write(Err.Description)
end if
set uploadFolder=nothing
Set objFSO=nothing
end sub
Rem 过滤SQL非法字符
function checkStr(str)
if isnull(str) then
checkStr = ""
exit function
end if
checkStr=replace(str,"'","''")
end function
%>

</body>

</html>