softdown.asp

.asp网站程序。专业的二手汽车商店网站。功能强大

<!--#include file="config.asp"-->
<%
	if request.QueryString("ID")="" then
		response.write "不能连接或者没有指定物品信息"
		response.end
	end if
	
	set rs=server.createobject("adodb.recordset")
	sql="select Address,SoftID from "&CategoryName&"_SoftLink where Id=" & cstr(request.QueryString("ID"))
	 rs.open sql,conn,1,1
 	if not rs.eof then
        Address=trim(rs("Address"))
	SoftID=trim(rs("SoftID"))	
	else
	Address="http://2so.fjxn.com"
	SoftID=""
 	end if	
	rs.close
	
if SoftID<>"" then
	
	sql="select * from "&CategoryName&"_SoftInfo where SoftID="&SoftID&""
	rs.open sql,conn,1,1
	
	DayDate=trim(rs("DayDate"))
	WeekDate=trim(rs("WeekDate"))
	MonthDate=trim(rs("MonthDate")) 
	AllHits=trim(rs("AllHits"))
	avgGrade=trim(rs("avgGrade"))

		
	sql="update "&CategoryName&"_SoftLink set Hits=Hits+1 where Id=" & cstr(request.QueryString("ID"))
	conn.execute sql
	
	sql="update "&CategoryName&"_SoftInfo set AllHits=AllHits+1,DayHits=DayHits+1,WeekHits=WeekHits+1,MonthHits=Monthhits+1 where SoftId=" & SoftID
	conn.execute sql
	
	if datediff("d",DayDate,date)>=1 then
	sql="update "&CategoryName&"_SoftInfo set DayDate=Now(),DayHits=1 where SoftId=" & SoftID
	conn.execute sql
	end if
	
	if datediff("Ww",WeekDate,date)>=1 then
	sql="update "&CategoryName&"_SoftInfo set WeekDate=Now(),WeekHits=1 where SoftId=" & SoftID
	conn.execute sql
	end if	
	
	if datediff("M",MonthDate,date)>=1 then
	sql="update "&CategoryName&"_SoftInfo set MonthDate=Now(),MonthHits=1 where SoftId=" & SoftID
    conn.execute sql
	end if
	
	rs.close
end if
	set rs=nothing
	CloseDatabase

        if left(address,1)<>"/" then
        response.redirect(address)
	else
	response.redirect "ftp://2so.fjxn.com" & address 
	end if
	%>