TOM星座速配小偷

最新推荐文章于 2023-11-17 09:54:42 发布

shenzhe__

最新推荐文章于 2023-11-17 09:54:42 发布

阅读量2.4k

点赞数

分类专栏： ASP 文章标签： action image input class search div

本文链接：https://blog.csdn.net/shenzhe__/article/details/231949

版权

ASP 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

数据库:(astro_pd)

pd_id 自动编号

ifirst 文本 '条件一

iseconde 文本 '条件二

pd_result 备注配对结果

============================================
= astro_search.htm (速配页面表) =
============================================

==========================================
= search_result.asp (速配结果) =
==========================================

<%
Rem============================
Rem=  文件名：search_result.asp
Rem=　功能：星座对星座配对　
Rem=  作者：shenzhe(shenzhe__@sohu.com)
Rem=  说明：本页采用XMLHTTP技术，从TOM网抓过来的
Rem=  只要TOM不把链接地址更改，我们就可和新浪同步更新
Rem============================
Dim ifirst,isecond
ifirst = Trim(Request("First"))
isecond = Trim(Request("Second"))
action = Trim(Request("action"))
Dim title
title = "捷旅星座->"&ifirst&"VS"&isecond&"速配结果"
Dim iurl
iurl = "http://astro.tom.com/script/vs/astro.php?dirname="&action&"&First="&ifirst&"&Second="&isecond
'Response.Write iurl
Rem==================================
Rem=　过程名:Ichange
Rem=  作用: 转换抓得数据的格式
Rem===================================
Function Ichange(str)
    Dim finalStr
Dim icharCode
Dim inextCode
    For i = 1 To lenb(str)
        icharCode = ascb(midb(str,i,1))
        If icharCode < &H80 Then
            finalStr = finalStr & chr(icharCode)
        Else
            inextCode = ascb(midb(str,i+1,1))
            finalstr = finalstr & chr(clng(icharCode) * &H100 + cint(inextCode))
            i = i + 1
        End If
    Next
Ichange = finalStr
End Function

Rem================================
Rem= 下页先从数据库判断．如已经有记
Rem=　录，则直接调用，否则跟据构造的
Rem= url，从ＴＯＭ处提取想要的数据存
Rem= 入数据库中.......
Rem================================
Sql = "SELECT pd_result FROM astro_pd WHERE ifirst='"&ifirst&"' AND isecond='"&isecond&"'"
Set Rs = Conn.Execute (Sql)
If Rs.Eof OR Rs.Bof Then
    Set iconnect = CreateObject("Microsoft.XMLHTTP")
    icode = iconnect.open ("GET",iurl,false)
    iconnect.send()

    icode = Ichange(iconnect.responsebody)
    'Response.Write icode
Rem=取得配对内容开始==
inum = len(icode)-instr(icode,"<td class="&chr(34)&"text"&chr(34)&">")-16
icode=right(icode,inum)
'Response.Write icode
    inum = instr(icode,"</td>")-1
    pd_result=left(icode,inum)
'Response.write pd_content
    Rem=取得配对内容结束==
    Set iconnect=nothing

pd_result = Replace(pd_result,"'","")

Rem=存入数据库
Conn.execute("INSERT INTO astro_pd (ifirst,isecond,pd_result) VALUES ('"&ifirst&"','"&isecond&"','"&pd_result&"')")
Else
pd_result=Rs(0)
End If
Rs.Close()
Set Rs = Nothing
%>

shenzhe__

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
1
评论
TOM星座速配小偷

数据库:(astro_pd)pd_id 自动编号ifirst 文本条件一iseconde 文本条件二pd_result 备注配对结果============================================= astro_search.htm (速配页面表) =========
复制链接

扫一扫