📄 geturl2.asp
字号:
<%Server.ScriptTimeout=500%>
<link rel="stylesheet" type="text/css" href="../html/style.css">
<body bgcolor=ccbbaa>
<!-- #include file=../database.asp -->
<%
fenleiid=request("fenleiid")
'response.write "fenlei:"&fenleiid
if fenleiid="" or isNull(fenleiid) or isNumeric(fenleiid)=0 then
response.write "分类错误!"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from fenlei where id="&fenleiid
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "要加入的这个网站的分类不存了,可能是这个分类已经删除!"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
else
fenleiid=rs("id")
fatherid=rs("father")
rs.close
end if
rem html betoken
rem right1: <a href="a.htm">test</a>
rem right2: <a href="a.htm">test</a >
rem right3: <a href="a.htm" >test</a>
rem wrong1: < a href="a.htm">test</a>
rem wrong2: <a href="a.htm">test< /a>
rem wrong3: <a hr
rem ef="a.htm">test< /a>
rem get result: behind < can't insert space. in front of > can use space.
rem in windows,can use space in filename,but can't use space in head or tail of filename.
rem so as follow is right
rem wrong2: <a href=" a.htm ">test</a >
rem wrong2: <a href=" a.h
rem tm ">test</a >
rem but as follow is wrong
rem wrong2: <a href=a.
rem htm>test</a >
%>
<html>
<body>
<%
rem flag=0 Need get <a title
rem flag=1 Need get url
rem flag=2 Need get <a correspondence > title
rem flag=3 Need get Url name
rem flag=4 Need get </a>
rem flag=5 If exist notes then get url notes
dim Flag
Flag=0
rem ' and " flag
rem yiflag=1 is ' or " start. yiflag=0 is ' or " end. yi flag=2 is nothing
dim yiflag
dim yiflagword
yiflagword=""
yiflag1=0
dim TempCur
set fsFilesys=CreateObject("Scripting.FileSystemObject")
set myText=fsFilesys.OpenTextFile(Server.MapPath("test.htm"))
Temp=Lcase(trim(myText.Readall))
if Temp<>"" then Temp=replace(Temp,"'","")
if Temp<>"" then Temp=replace(Temp,chr(34),"")
if Temp<>"" then Temp=replace(Temp,vbCrLf,"")
if Temp<>"" then Temp=replace(Temp,"---","")
'response.write len(temp)
count=0
flag=0
url=""
title=""
notes=""
function writerecord
if url<>"" and title<>"" then
sql = "select id,url from templink where url='"&replace(url,"'","''")&"'"
rs.open sql,conn,1,1
response.write "<hr size=1>"
if not rs.eof then
response.write "网址已经存在,不用再添加了!!它的id是"&rs("id")&",网址是"&server.htmlencode(rs("url"))&"<br>"
rs.close
else
rs.close
ndatetime=Cstr(date)
conn.Execute " INSERT INTO templink " _
& "(username,sitename,url,jiji,fenleiid,fen,ndatetime) VALUES " _
& "('supervisor','"&replace(title,"'","''")&"','"&replace(url,"'","''")&"','"&replace(notes,"'","''")&"',"&fenleiid&",0,'"&ndatetime&"');"
end if
end if
end function
do while len(Temp)>0
select case flag:
case 0:
writerecord
'response.write "temp0:"&server.htmlencode(temp)&"<br>"
url=""
title=""
notes=""
'response.write flagflag&"<br>"
if inStr(Temp,"<a")>0 then
cursor=inStr(Temp,"<a")
Temp=trim(mid(Temp,cursor+2))
if inStr(Temp,"href")>0 then
cursor=inStr(Temp,"href")
Temp=trim(mid(Temp,cursor+5))
rem ---------remove =-----------------------------
if Left(Temp,1)="=" then Temp=trim(mid(Temp,2))
rem ---------remove " or '------------------------
end if
Flag=1
else
exit do
end if
case 1:
'response.write "temp1:"&server.htmlencode(temp)&"<br>"
'Temp=trim(
'response.write" "&flag&"<br>"
if replace(Left(Temp,7),"\","/")="http://" then
if InStr(Temp," ")<>0 and inStr(Temp," ")<inStr(Temp,">") then
cursor=inStr(Temp," ")
else
cursor=inStr(Temp,">")
end if
if cursor=0 then
exit do
else
flag=2
url=url&replace(Left(Temp,cursor-1),"\","/")
if inStr(Temp,">")>0 then
Temp=Trim(mid(Temp,inStr(Temp,">")+1))
flag=3
end if
end if
rem -------remove last / or \ in url
do while right(url,1)="/" or right(url,1)="\"
url=left(url,len(url)-1)
loop
response.write "url:<font color=ff0000>"&url&"</font><br>"
count=count+1
'response.write "tempfflag:"&server.htmlencode(temp)&"<br>"
' "flag:"&flag&"<br>"
else
flag=0
end if
case 3: 'response.write "temp2:"&server.htmlencode(temp)&"<br>"
'if inStr(Temp,">")>0 then
' Temp=Trim(mid(Temp,inStr(Temp,">")+1))
'end if
'response.write "temp2:"&server.htmlencode(temp)&"<br>"
fflag=0
rem fflag=0 > is end . fflag=1 < is start
do while 1
if fflag=0 then
temp1=temp
temp2="<"
cursor=instr(temp1,temp2)
cursortemp=int(cursor)-1
if cursor>0 then
'response.write "curor:"&cursor&"<br>"
if cursor>1 then title=title&left(Temp,cursor-1)
'response.write "tgitle:"&server.htmlencode(title)&"<br>"
Temp=trim(mid(Temp,cursor))
'response.write "temps:"&server.htmlencode(temp)&"<br>"
if Lcase(Left(Temp,3))="</a" then
flag=4
response.write "title1:<font color=779977>"&title&"</font><br>"
exit do
end if
if Left(Temp,2)="<a" then
flag=0
response.write "title2:<font color=779977>"&title&"</font><br>"
exit do
end if
fflag=1
else
title=title&Temp
response.write "title:"&title
response.write "<font size=5 color=000000><br>总数1:"&count
writerecord
set rs=nothing
conn.close
set conn=nothing
myText.close
set fsFilesys=nothing
response.write "<script>this.scroll(0, 65000);</script>"
response.end
end if
else
Curosr=inStr(Temp,">")
if cursor>0 then
Temp=trim(mid(Temp,inStr(Temp,">")+1))
fflag=0
else
response.write "<font size=5 color=000000><br>总数2:"&count
writerecord
set rs=nothing
conn.close
set conn=nothing
myText.close
set fsFilesys=nothing
response.write "<script>this.scroll(0, 65000);</script>"
response.end
end if
end if
loop
'response.write flag
case 4: 'response.write "temp4:"&server.htmlencode(temp)&"<br>"
temp1=temp
temp2=">"
tempp=instr(temp1,temp2)
'response.write "tempp:"&tempp&"<br>"
if tempp>0 then
Temp=trim(mid(Temp,tempp+1))
flag=5
else
exit do
end if
case 5: 'response.write "temp5:"&server.htmlencode(temp)&"<br>"
fflag=0
rem fflag=0 > is end . fflag=1 < is start
do while 1
if fflag=0 then
temp1=temp
temp2="<"
cursor=instr(temp1,temp2)
cursortemp=int(cursor)-1
if cursor>0 then
if cursor>1 then notes=notes&left(Temp,cursor-1)
Temp=trim(mid(Temp,cursor))
if Left(Temp,2)="<a" then
flag=0
response.write "notes:<font color=779977>"¬es&"</font><br>"
exit do
end if
fflag=1
else
notes=notes&Temp
response.write "notes"¬es
response.write "<font size=5 color=000000><br>总数3:"&count
writerecord
set rs=nothing
conn.close
set conn=nothing
myText.close
set fsFilesys=nothing
response.write "<script>this.scroll(0, 65000);</script>"
response.end
end if
else
Curosr=inStr(Temp,">")
if cursor>0 then
Temp=trim(mid(Temp,inStr(Temp,">")+1))
fflag=0
else
response.write "<font size=5 color=000000><br>总数4:"&count
writerecord
set rs=nothing
conn.close
set conn=nothing
myText.close
set fsFilesys=nothing
response.write "<script>this.scroll(0, 65000);</script>"
response.end
end if
end if
loop
case else: exit do
end select
Loop
myText.Close
response.write "<font size=5 color=000000><br>总数5:"&count
writerecord
set rs=nothing
conn.close
set conn=nothing
myText.close
set fsFilesys=nothing
%>
<script>main.scroll(0, 65000);</script>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -