tj.asp

露珠网站是一个以文章类、下载类、图片类、动画类、视频类为主的综合网站。我们的目标：麻雀虽小(223kb)

<!--#include file="luzhuba.asp"-->
<%Server.ScriptTimeOut=99999
select case request("luzhuba")
case "":tjcdxs()
case "tjdg":tjdg()
case "tjcg":tjdg()
case "tjdgxs":tjdgxs()
case "tjcgxs":tjdgxs()
case "toupiao":toupiao()
case "ljxs":ljxs()
case "ljxssave":ljxssave()
case "pladd":
Response.Write""&pladd(request("zfl"),request("id"))&"" 
case "pladdsave":
pladdsave
case "plxs":
Response.Write "document.all.pl"&request.QueryString("id")&".innerHTML="""&plxs(request.QueryString("zfl"),request.QueryString("id"),1)&""""

case "plxsqb":
Response.Write""&plxs(request("zfl"),request("id"),2)&"" 
case "plxshtml":
Response.Write""&plxshtml(request("zfl"),request("id"))&"" 
end select

Public Sub  tjcdxs
sql="select * from "&request.QueryString("luzhuba.cn")&" where d_id=cint("&request.QueryString("tjid")&")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if request.QueryString("qtlx")="tjqb" then 
Response.Write "document.all.tjqb.innerHTML=""今日"&Rs("tjjs")&"次 本周"&Rs("tjbz")&"次 本月"&Rs("tjby")&"次 总数"&Rs("tj")&"次"""
else
Response.Write "document.all."&request.QueryString("qtlx")&".innerHTML="""&Rs(""&request.QueryString("qtlx")&"")&""""
end if
application.lock
Rs("tj")=Rs("tj")+1
If DateDiff("Ww", rs("tjdate"), Now()) <= 0 Then
rs("tjbz")= rs("tjbz") + 1
Else
rs("tjbz")= 1
End If
If DateDiff("M", rs("tjdate"), Now()) <= 0 Then
rs("tjby")= rs("tjby")+ 1
Else
rs("tjby")= 1
End If
If DateDiff("D", rs("tjdate"), Now()) <= 0 Then
rs("tjjs")= rs("tjjs")+ 1
Else
rs("tjjs") = 1
rs("tjdate") = Now()
end If
rs.Update
application.unlock
rs.close
set rs=nothing
end sub
Public Sub tjdg
sql="select * from "&request.QueryString("luzhuba.cn")&" where d_id=cint("&request.QueryString("tjid")&")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
If DateDiff("D", rs("tjdate"), Now()) > 0 or Session("luzhuba"&request.QueryString("luzhuba.cn")&""&request.QueryString("tjid")&"")="" Then
rs(""&request.QueryString("luzhuba")&"")= rs(""&request.QueryString("luzhuba")&"")+ 1
if  DateDiff("D", rs("tjdate"), Now()) > 0 then rs("tjdate") = Now()
Session("luzhuba"&request.QueryString("luzhuba.cn")&""&request.QueryString("tjid")&"")="luzhuba"
session.timeout=1440
rs.Update
end If
rs.close
Response.Write("<script language=javascript>history.back(1);</script>")
end sub
Public Sub tjdgxs
sql="select * from "&request.QueryString("luzhuba.cn")&" where d_id=cint("&request.QueryString("tjid")&")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
Response.Write "document.all."&request.QueryString("luzhuba")&".innerHTML="""&Rs(""&replace(request.QueryString("luzhuba"),"xs","")&"")&""""
end sub
Public Sub toupiao
sql="select * from lztp where d_id="&request.querystring("d_id")&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
dkd=Split(rs("tps"),";")
for s=1 to UBound(dkd)
if s=cint(request.QueryString("luzhutp")) then
kk=kk&""&(dkd(s-1)+1)&";"
else
kk=kk&""&dkd(s-1)&";"
end if
next
rs("tps")=kk
rs.Update
rs.close
end sub
Public Sub ljxs
'luzhuba_cn(""&htmlmbqtmb(1,29,1)&"")
luzhuba_cn(""&htmlmbqtmb(1,37,1)&"")
luzhuba_cn("<form method=""post"" action=""?luzhuba=ljxssave"" name=""form2""><div align=""center""> ")      
luzhuba_cn("<table align=""center"" width=""100%"" border=""1"" style='font:Verdana 12px;BORDER: #FFF0BC 1px solid;border-collapse: collapse'> ")                   
luzhuba_cn("<tr><td width=""100%"" colspan=""2"" height=""29"" align=""center"" >申请链接</td></tr> ")
luzhuba_cn("<tr><td width=""10%"" height=""30""> 网站名称: </td><td width=""90%"" height=""30""><input type=""text"" size=""70"" name=""linkname""></td></tr>")   
luzhuba_cn("<tr><td width=""10%"" height=""30""> 网站地址: </td><td width=""90%"" height=""30""><input type=""text"" size=""70"" name=""linkurl""></td></tr>")
luzhuba_cn("<tr><td width=""10%"" height=""30""> 网站logo: </td><td width=""90%"" height=""30""><input type=""text"" size=""70"" name=""linkgif""></td></tr>") 
luzhuba_cn("<tr><td width=""10%"" height=""30""> 注意：</td><td width=""90%"" height=""30""> 1.各用户申请链接必须先加上本网站才能通过。 </td></tr> ")
luzhuba_cn("<tr><td width=""10%"" height=""30""></td> <td width=""90%"" height=""30"">2.网站名称："&wzxx("wzm")&"</td></tr> ")
luzhuba_cn("<tr><td width=""10%"" height=""30""> </td><td width=""90%"" height=""30"">3.网站地址：http://"&wzxx("wzhttp")&"</td></tr> ")
luzhuba_cn("<tr><td width=""10%"" height=""30""></td><td width=""90%"" height=""30""> 4.网站logo：http://"&wzxx("wzhttp")&"/images/logo.gif ")
luzhuba_cn("</td></tr><tr><td width=""100%"" colspan=""2"" height=""31""> <p align=""center""> <input type=""submit"" name=""Submit"" value=""输入""><input type=""reset"" name=""Submit2"" value=""重输""></p></td></tr></table></div ></form>")           
luzhuba_cn(""&htmlmbqtmb(1,30,1)&"")
end sub
Public Sub ljxssave
luzhuba_cn(""&htmlmbqtmb(1,37,1)&"")
sql="select * from link"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.AddNew
rs("linkname")=ChkFormStr(request.form("linkname")) 
rs("linkurl")=ChkFormStr(request.form("linkurl")) 
rs("linkgif")=ChkFormStr(request.form("linkgif")) 
rs("linkdate")=now() 
rs.Update 
rs.close        
conn.close 
set conn=nothing          
response.Write("<script language=javascript>alert('本网站谢谢你了，请等待管理员通过吧！');this.top.location.href='index.asp';</script>")           
luzhuba_cn(""&htmlmbqtmb(1,30,1)&"")
end sub

%>