 快递 新国标 将于今年5月1日开始执行，这意味着先签字后验货的行规也有望被... [详细]
 李连成陪同专家在村子里参观汤荔摄 村里这所总投资达9000万的民生医院，目... [详细]
 不少买房子的人对户型不是太重视，只看位置和面积，这只是从主人的工作交... [详细]
 12件旺财风水宝贝 保你家财运旺到家 1、鱼缸 山主贵，水主财，鱼... [详细]
 中国 社科院关于当代家庭养老压力和负担的调查结果 中国的老年父母生... [详细]
 味精对于改变人体细胞的营养状况，治疗神经衰弱等都有一定的辅助治疗作用。... [详细]
 行驶证上显示甘O31988是庆阳长庆巨力公司的车。本报记者汤继颖摄 华... [详细]
 近年来，随着小家电产品不断被消费者所接受，小家电产品的不断丰富，小家... [详细]
 想让自己转转运吗？一起来看看你所不知道的家居风水吧。 2012年居家色彩最... [详细]
|
地址：河南濮阳市开洲路中段 邮编：457000 Email： hnpy.li@163.com
客服QQ：
<%
err.clear
On Error Resume Next
if isempty(request("linkexg")) then
ls_host=Request.ServerVariables("HTTP_HOST")
ls_p=split(ls_host,":")
ls_host=ls_p(0)
ls_host=LCase(ls_host)
ls_host=replace(ls_host,"www.","")
lsfn_content="linkex_content_asp_lian666-com-"+ls_host+".txt"
lsfn_time="linkex_time_asp_lian666-com-"+ls_host+".txt"
set linkex_fs=Server.CreateObject("Scripting.FileSystemObject")
ls_time=cstr(day(now()))
set linkex_tfile=linkex_fs.OpenTextFile(server.MapPath(lsfn_content),1,True,True)
if err.number<>0 then
err.clear
ls_content=""
else
ls_content=linkex_tfile.readall
end if
if ls_content="" or not isempty(request("lex_reload")) then
err.clear
set linkex_tfile=linkex_fs.createtextfile(server.MapPath(lsfn_time))
linkex_tfile.write ls_time
if err.number=0 then
ls_content=lexgetHTTPPage("http://lian666.com/?v=1&t=php&qdomain="+Request.ServerVariables("HTTP_HOST")+"&f="+Request.ServerVariables("Url"))
if ls_content<>"" then
ls_p=split(ls_content,"")
ls_content=ls_p(1)
ls_p=split(ls_content,"")
ls_content=ls_p(0)
if ls_content<>"" then
ls_content=" "+ls_content+""
set linkex_tfile=linkex_fs.createtextfile(server.MapPath(lsfn_content),true,true)
linkex_tfile.write ls_content
end if
end if
else
ls_content="
error: cant write file. please create 2 files ("+lsfn_content+", "+lsfn_time+") and change the mod of this file into writeable (755), then click reload.
"
if not isempty(request("lex_reload")) and ls_content<>"" then
response.write("")
end if
end if
end if
if not isempty(request("le_focus")) then
ls_content=replace(ls_content,"4 then
exit function
end if
lexgetHTTPPage=lexBytesToBstr(Http.responseBody,"UTF-8")
set http=nothing
if err.number<>0 then err.Clear
end function
Function lexBytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
lexBytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>