system.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

wend
Rs.Close
Set Rs=NoThing
End Sub
Sub Page_Pays(Selecte)
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from Tx_Give where Pay_Name<>''"
Rs.Open Sql,Conn,1,1
While Not Rs.eof
strPct = "<OPTION VALUE='" & Rs("Give_Id") & "' "
IF int(Selecte)=Rs("Give_Id") THEN
strPct = strPct & "selected"
End IF
strPct = strPct & ">" & Rs("Pay_Name") & "</OPTION>"
Response.Write strPct
Rs.moveNext
wend
Rs.Close
Set Rs=NoThing
End Sub
IF Vist>21 And Len(Vistw(2))=3 THEN Vistc=1
Sub Page_Productsbuy()
IF online_sbuy=1 THEN
Response.Write " <a onClick=" & CHR(34) & "javascript:window.open('Buy.asp?Id=" & buyId & "','news','width=512,height=277,top=300,left=260,scrollbars=yes');return false;" & CHR(34) & " href=''><IMG SRC='Skins/Blue/buy_1.gif' BORDER='0'></A> "
End IF
IF online_buy=1 THEN
Response.Write " <a onClick=" & CHR(34) & "javascript:window.open('Shop.asp?Id=" & buyId & "','news','width=612,height=275,top=300,left=210,scrollbars=yes');return false;" & CHR(34) & " href=''><IMG SRC='Skins/Blue/buy_2.gif' BORDER='0'></A> "
End IF
End Sub
Function LastAIp(IP)
IP=cstr(IP)
IP1=Left(IP,cint(instr(IP,".")-1))
IP=Mid(IP,cint(instr(IP,".")+1))
IP2=Left(IP,cint(instr(IP,".")-1))
IP=Mid(IP,cint(instr(IP,".")+1))
IP3=Left(IP,cint(instr(IP,".")-1))
IP4=Mid(IP,cint(instr(IP,".")+1))
LastAIp=Cint(IP1)*256*256*256+Cint(IP2)*256*256+Cint(IP3)*256+Cint(IP4)
End Function
Function GetWhere(IP)
If Session("VisitorsRess")="" THEN
Set Rs_c=Server.CreateObject("ADODB.Recordset")
Sql="select country,city from ip_H where ip1<=" & IP & " and ip2>=" & IP
Rs_c.Open sql,CiP,1,1
IF Rs_c.RecordCount<>0 THEN
GetWhere=Rs_c("country") & Rs_c("city")
Else
GetWhere="未知"
End IF
Session("VisitorsRess")=GetWhere
Rs_c.Close

Set Rs_c=Nothing
CiP.Close
Set CiP=Nothing
Else
GetWhere=Session("VisitorsRess")
End IF
End Function
VisitorsRess=Session("VisitorsRess")
Tp_Ip=VisitorsIp
Tp_IP=LastAIp(Tp_Ip)
VisitorsWhere=GetWhere(Tp_Ip)
IF instr(VisitorsSoft,"NetCaptor") THEN
VisitorsIE="NetCaptor"
ElseIF instr(VisitorsSoft,"MSIE 6") THEN
VisitorsIE="IE 6.x"
ElseIF instr(VisitorsSoft,"MSIE 5") THEN
VisitorsIE="IE 5.x"
ElseIF instr(VisitorsSoft,"MSIE 4") THEN
VisitorsIE="IE 4.x"
ElseIF instr(VisitorsSoft,"Netscape") THEN
VisitorsIE="Netscape"
ElseIF instr(VisitorsSoft,"Opera") THEN
VisitorsIE="Opera"
Else
VisitorsIE="Other"
End IF
IF instr(VisitorsSoft,"Windows NT 5.0") THEN
VisitorsOS="Windows 2000"
ElseIF instr(VisitorsSoft,"Windows NT 5.1") THEN
VisitorsOS="Windows XP"
ElseIF instr(VisitorsSoft,"Windows NT 5.2") THEN
VisitorsOS="Windows 2003"
ElseIF instr(VisitorsSoft,"Windows NT") THEN
VisitorsOS="Windows NT"
ElseIF instr(VisitorsSoft,"Windows 9") THEN
VisitorsOS="Windows 9x"
ElseIF instr(VisitorsSoft,"unix") OR instr(VisitorsSoft,"linux") OR instr(VisitorsSoft,"SunOS") OR instr(VisitorsSoft,"SunOS") OR instr(VisitorsSoft,"BSD") OR instr(VisitorsSoft,"Mac") THEN 
VisitorsOS="Unix & Unix 类"
Else
VisitorsOS="Other"
End IF
IF VisitorsForm="" or VisitorsForm=Web_Const(1) THEN
VisitorsForm="直接输入网址进入的"
End IF
IF Request.Servervariables("QUERY_STRING")="" THEN
VisitorsTo=ToHistorys
Else
VisitorsTo=ToHistorys & ToEnglishu
End IF
Sub Page_Counts()
IF int(Web_Const(56))=1 THEN
Conn.Execute "UpDate Tx_Const Set Count_DayIp=0,Count_DayAll=0,Count_Date='" & date() & "' where (datediff('d',Count_Date,date())>0)"
Conn.Execute "UpDate Tx_Const Set Count_DayAll=Count_DayAll+1,Count_All=Count_All+1"
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * From Tx_Visitors order by Visitors_Date asc,Visitors_Id asc"
Rs.Open Sql,Conn,1,3
IF Rs.RecordCount<int(Web_Const(58)) THEN
Rs.AddNew
End IF
Rs("Visitors_OS")=VisitorsOS
Rs("Visitors_IE")=VisitorsIE
Rs("Visitors_Ress")=VisitorsWhere
Rs("Visitors_IP")=VisitorsIp
Rs("Visitors_Form")=VisitorsForm
Rs("Visitors_To")=VisitorsTo
Rs("Visitors_Date")=Now()
Rs("Visitors_User")=Loginuser_Id
Rs.UpDate
Rs.Close
Set Rs=Nothing
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Form where Form_Name='" & VisitorsForm & "'"
Rs.open Sql,Conn,1,3
IF Rs.RecordCount=0 THEN
Rs.addNew
Rs("Form_Name")=VisitorsForm
Rs("Form_Count")=1
Else
Rs("Form_Count")=Rs("Form_Count")+1
End IF
Rs.upDate
Rs.close
Set Rs=Nothing
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_To where To_Name='" & VisitorsTo & "'"
Rs.open Sql,Conn,1,3
IF Rs.RecordCount=0 THEN
Rs.addNew
Rs("To_Name")=VisitorsTo
Rs("To_Count")=1
Else
Rs("To_Count")=Rs("To_Count")+1
End IF
Rs.upDate
Rs.close
Set Rs=Nothing
IF Vistc=1 And vistv>int(Web_Const(18)) THEN
IF Vist<>12 THEN Call Page_check(2,0)
End IF
IF Request.Cookies("online")<>"true" THEN
Conn.Execute "UpDate Tx_Const Set Count_DayIp=Count_DayIp+1,Count_Ip=Count_Ip+1"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Ip where Ip_Name='" & VisitorsIp & "'"
Rs.open Sql,Conn,1,3
IF Rs.RecordCount=0 THEN
Rs.addNew
Rs("Ip_Name")=VisitorsIp
Rs("Ip_Count")=1
Else
Rs("Ip_Count")=Rs("Ip_Count")+1
End IF
Rs.upDate
Rs.close
Set Rs=Nothing
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Ress where Ress_Name='" & VisitorsWhere & "'"
Rs.open Sql,Conn,1,3
IF Rs.RecordCount=0 THEN
Rs.addNew
Rs("Ress_Name")=VisitorsWhere
Rs("Ress_Count")=1
Else
Rs("Ress_Count")=Rs("Ress_Count")+1
End IF
Rs.upDate
Rs.close
Set Rs=Nothing
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * From Tx_Count"
Rs.Open Sql,Conn,1,3
While not Rs.eof
IF Hour(Now())=Rs("Count_HourS") THEN
IF datediff("h",Rs("Count_HourD"),Now())>0 THEN
Rs("Count_HourD")=Now()
Rs("Count_HourN")=0
End IF
Rs("Count_HourN")=Rs("Count_HourN")+1
Rs("Count_HourA")=Rs("Count_HourA")+1
End IF
IF Day(Now())=Rs("Count_DayS") THEN
IF datediff("d",Rs("Count_DayD"),Now())>0 THEN
Rs("Count_DayD")=Now()
Rs("Count_DayN")=0
End IF
Rs("Count_DayN")=Rs("Count_DayN")+1
Rs("Count_DayA")=Rs("Count_DayA")+1
End IF
IF Month(Now())=Rs("Count_MonthS") THEN
IF datediff("m",Rs("Count_MonthD"),Now())>0 THEN
Rs("Count_MonthD")=Now()
Rs("Count_MonthN")=0
End IF
Rs("Count_MonthN")=Rs("Count_MonthN")+1
Rs("Count_MonthA")=Rs("Count_MonthA")+1
End IF
IF VisitorsOS=Rs("Count_OsC") THEN
Rs("Count_OsA")=Rs("Count_OsA")+1
End IF
IF VisitorsIE=Rs("Count_IEC") THEN
Rs("Count_IEA")=Rs("Count_IEA")+1
End IF
Rs.MoveNext
Wend
Rs.UpDate
Rs.Close
Set Rs=Nothing
Response.Cookies("online")="true"
Response.Cookies("online").Expires=DateAdd("h", Web_Const(57), Now()) 
End IF
End IF
End Sub
Sub Edition()
Response.Write"<br><TABLE CELLSPACING=0 CELLPADDING=0 WIDTH=158 ALIGN=center><TR><TD CLASS=menu_title background=Images/Admin/Admin20051001.gIF HEIGHT=25> <span>管理登陆信息</SPAN></TD></TR><TR><TD><DIV CLASS='sec_menu' STYLE='WIDTH: 158px'><TABLE CELLSPACING=2 CELLPADDING=0 WIDTH=140 ALIGN=center><TR><TD>NAME：<B>" & Session("Loginadmin") & "</B><BR>TIME：" & mid(Session("Logindate"),3,len(Session("Logindate"))) & "<BR>I　P：" & Session("Loginip") & "<BR>L .N：" & Session("Logincount") & "</TD></TR></TABLE></DIV></TD></TR></TABLE><Br>"
End Sub
Sub Page_Messx()
Response.Write "<OPTION VALUE='UserName'>" & Selectkey & "的收件箱</OPTION><OPTION VALUE='Messo'>" & Selectkey & "的发件箱</OPTION><OPTION VALUE='Messf'>" & Selectkey & "的已发送</OPTION><OPTION VALUE='Messd'>" & Selectkey & "的废件箱</OPTION>"
End Sub
Sub PageMessTo(MessForm,MessTo,MessSend,MessName,MessContent)
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Mess"
Rs.open Sql,Conn,1,3
Rs.addNew
Rs("MessForm")=MessForm
Rs("MessTo")=MessTo
Rs("MessSend")=MessSend
Rs("MessDate")=Now()
Rs("MessName")=MessName
Rs("MessContent")=MessContent
Rs.upDate
Rs.Close
Set Rs=Nothing
End Sub
Sub Page_Close(s,t)
Response.Write "<META HTTP-EQUIV=""refresh"" CONTENT=""" & s & ";URL=" & t & """>"
End Sub
Sub Page_Head()
strIfc = "<HTML><HEAD><TITLE>" & Page_Name & "</TITLE><META HTTP-EQUIV='Pragma' CONTENT='no-cache'><META HTTP-EQUIV='Content-Type' CONTENT='text/html; CHARSET=gb2312'><LINK HREF='" & Web_Const(5) & "' REL='stylesheet' TYPE='text/css'></HEAD><BODY onmousemove='HideMenu()' "
IF Web_Const(8)<>"not" THEN strIfc = strIfc & " onMouseOver=" & CHR(34) & "window.status='" & Web_Const(8) & " ';return true" & CHR(34) & ""
IF Web_Const(16)=1 THEN strIfc = strIfc & " oncontextmenu='return false' "
IF Web_Const(17)=1 THEN strIfc = strIfc & " onSelectStart='return false' "
strIfc = strIfc & ">"
Response.Write strIfc
End Sub
Sub Page_Bottom()
Call Page_endBody()
End Sub
Sub Login_Log()
Dim Log_Pass,xPassWord,PassWordx
Set Rs_c=server.createobject("adodb.recordset")
Sql="Select Admin_Pass From Tx_Admin"
Rs_c.open Sql,Conn,1,1
While Not Rs_c.Eof
IF Md5(Request.form("PassWord"))=Rs_c("Admin_Pass") THEN
xPassWord=1
End IF
Rs_c.MoveNext
Wend
Rs_c.Close
Set Rs_c=Nothing
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Log"
Rs.open Sql,Conn,1,3
Rs.AddNew
Rs("Log_Ip")=VisitorsIp
Rs("Log_Ress")=VisitorsRess
Rs("Log_Date")=Now()
Rs("Log_Result")=Log_Result1 & "," & Log_Result2 & "," & Log_Result3 & "," & Log_Result4 & "," & Log_Result5 & "," & Log_Result6 & "," & Log_Result7
Rs("Log_Name")=Request.form("Admin")
IF xPassWord=1 THEN
Log_Pass=len(Request.form("PassWord"))
For i=0 To Log_Pass
PassWordx="*" & PassWordx
Next
Rs("Log_Pass")=PassWordx
Else
Rs("Log_Pass")=Request.form("PassWord")
End IF
Rs.UpDate
Rs.Close
Set Rs=Nothing
End Sub
Sub Index_Products()
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="select Top " & ProductsMax_Index & " * from Tx_Products where Products_Flag=1 and Products_Index=1 order by Products_Date"
Rs.Open sql,Conn,1,1
IF Rs.Recordcount=0 THEN
Call Page_check(4,0)
Else
While Not Rs.Eof
strIfc = "<DIV><SPAN CLASS='index-productsbg'><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称：" & Rs("Products_Name") & "&#13;产品编号：" & Rs("Products_Code") & "&#13;添加时间：" & YearDa(Rs("Products_Date")) & "'><IMG SRC=" & Rs("Products_Pic") & " WIDTH=120 HEIGHT=80 BORDER=0></A><br><SPAN CLASS='index-products1'><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称：" & Rs("Products_Name") & "&#13;产品编号：" & Rs("Products_Code") & "&#13;添加时间：" & YearDa(Rs("Products_Date")) & "'>" & gotTopic(Rs("Products_Name"),9,1) & "</A></SPAN>"
Rs.MoveNext
strIfc = strIfc & "</SPAN><SPAN CLASS='index-productsbg'><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称：" & Rs("Products_Name") & "&#13;产品编号：" & Rs("Products_Code") & "&#13;添加时间：" & YearDa(Rs("Products_Date")) & "'><IMG SRC=" & Rs("Products_Pic") & " WIDTH=120 HEIGHT=80 BORDER=0></A><br><SPAN CLASS='index-products1'><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称：" & Rs("Products_Name") & "&#13;产品编号：" & Rs("Products_Code") & "&#13;添加时间：" & YearDa(Rs("Products_Date")) & "'>" & gotTopic(Rs("Products_Name"),9,1) & "</A></SPAN>"
Rs.MoveNext
strIfc = strIfc & "</SPAN><SPAN CLASS='index-productsbg'><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称：" & Rs("Products_Name") & "&#13;产品编号：" & Rs("Products_Code") & "&#13;添加时间：" & YearDa(Rs("Products_Date")) & "'><IMG SRC=" & Rs("Products_Pic") & " WIDTH=120 HEIGHT=80 BORDER=0></A><br><SPAN CLASS='index-products1'><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称：" & Rs("Products_Name") & "&#13;产品编号：" & Rs("Products_Code") & "&#13;添加时间：" & YearDa(Rs("Products_Date")) & "'>" & gotTopic(Rs("Products_Name"),9,1) & "</A></SPAN>"
Rs.MoveNext
strIfc = strIfc & "</SPAN><SPAN CLASS='index-productsbg'><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称：" & Rs("Products_Name") & "&#13;产品编号：" & Rs("Products_Code") & "&#13;添加时间：" & YearDa(Rs("Products_Date")) & "'><IMG SRC=" & Rs("Products_Pic") & " WIDTH=120 HEIGHT=80 BORDER=0></A><br><SPAN CLASS='index-products1'><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称：" & Rs("Products_Name") & "&#13;产品编号：" & Rs("Products_Code") & "&#13;添加时间：" & YearDa(Rs("Products_Date")) & "'>" & gotTopic(Rs("Products_Name"),9,1) & "</A></SPAN>"
Rs.MoveNext
strIfc = strIfc & "</SPAN></DIV>"
Response.Write strIfc
Wend
End IF
Rs.Close
Set Rs=Nothing
End Sub
Sub Page_Vote()
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_Vote where Vote_Flag=1 and Vote_Index=1"
Rs.open Sql,Conn,1,1
IF Rs.Recordcount=0 THEN
Call Page_check(4,0)
Else
Response.Write "<table width=165  border=0 cellspacing=0 cellpadding=0><Form  name=VoteF method=post action=Vote.asp?Action=Save><tr align=center><TD HEIGHT=30 colspan=2><B>" & Rs("Vote_Title") & "</B></TD></TR>"
Vote_Content=split(Rs("Vote_Content"),"||")
For intTemp=0 To ubound(Vote_Content)
IF intTemp=0 THEN Vote_checked="checked"
Response.Write "<TR><TD WIDTH=85% HEIGHT=25><IMG SRC=Skins/Blue/Tx_Ar3.gif>　" & gotTopic(Vote_Content(intTemp),9,1) & "</TD><TD><INPUT TYPE=radio NAME=s_Vote VALUE='" & intTemp & "' " & Vote_checked & "></TD></TR>"
Vote_checked=""
Next
Response.Write "<TR><TD HEIGHT=30 colspan=2><INPUT TYPE=image SRC=Skins/Blue/s_vote.gif NAME=Ok ALIGN=absmiddle> <A onClick=" & CHR(34) & "javascript:window.open('Vote.asp','news','width=512,height=277,top=300,left=260,scrollbars=yes');return false;" & CHR(34) & " href=''><IMG SRC=Skins/Blue/c_vote.gif BORDER=0 ALIGN=absmiddle></A></TD><TR></Form></TABLE>"
End IF
Rs.Close
Set Rs=Nothing