📄 system.asp

📁 台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.
💻 ASP
📖 第 1 页 / 共 4 页
字号:
Else
While Not Rs.Eof
Response.Write "<DIV STYLE='height: 25px;text-align: left;'><IMG SRC=Skins/Blue/Tx_Ar3.gIF>　<A HREF=" & FileName & ".asp?Id=" & Rs("Class_Id") & " title='" & Rs("Class_Content") & "'>" & gotTopic(Rs("Class_Name"),12,1) & "</A></DIV>"
Rs.MoveNext
Wend
End IF
Rs.Close
Set Rs=NoThing
End Sub
Sub Page_Spane(Tabe_Height)
Response.Write "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=" & Tabe_Height & "></TD></TR></TABLE>"
End Sub
Sub Page_aLeft()
Dim strpat
strpat = "<TABLE CELLSPACING=0 CELLPADDING=0 WIDTH=158 ALIGN=center>"
For x=0 to 8
strpat = strpat & "<TR><TD id=imgmenu" & x & " CLASS=menu_title onmouseover=this.className='menu_title2'; onclick=showsubmenu(" & x & ") onmouseout=this.className='menu_title'; STYLE=cursor:hand background=Images/Admin/Admin20051000.gIF HEIGHT=25> <span>" & LeftName(x,0) & "</SPAN></TD></TR><TR><TD id=submenu" & x & " STYLE=display:none><DIV CLASS=sec_menu STYLE=WIDTH: 158px><TABLE CELLSPACING=3 CELLPADDING=0 WIDTH=140 ALIGN=center>"
LeftNumber=split(LeftName(x,1),"‖")
For i=0 to ubound(LeftNumber)
strpat = strpat & "<TR><TD>" & LeftNumber(i) & "</TD></TR>"
Next 
strpat = strpat & "</TABLE></DIV><br></TD></TR>"
Next
strpat = strpat & "</TABLE>"
Response.Write strpat
Call Edition()
End Sub
Sub Page_formBody()
Response.Write "<HTML><BODY><title></title><meta http-equiv=Content-Type content=text/html; charset=gb2312><link href=Apage.css rel=stylesheet TYPE=text/css></head><body bgcolor=#d6dff7 >"
End Sub
Sub Page_endBody()
Response.Write "</BODY></HTML>"
End Sub
Sub Head_Clock()
Response.Write "<OBJECT codeBase=http:'//download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 HEIGHT=15 WIDTH=260 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000><PARAM NAME='movie' VALUE='Images/time.swf'><PARAM NAME='wmode' VALUE='transparent'><PARAM NAME='quality' VALUE='high'><embed src='Images/time.swf' quality='high' pluginspage='http:'//www.macromedia.com/go/getflashplayer' TYPE='application/x-shockwave-flash' WIDTH='260' HEIGHT='15'></embed></OBJECT>"
End Sub
Sub Head_Banner()
IF Web_Const(4)=1 THEN
strPct = "<OBJECT codeBase=http:'//download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 HEIGHT='" & Web_Const(12) & "' WIDTH='" & Web_Const(11) & "' classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000><PARAM NAME=movie VALUE='" & Web_Const(3) & "'><PARAM NAME=wmode VALUE=transparent><PARAM NAME=quality VALUE=high><embed src=VALUE='" & Web_Const(3) & "' quality=high pluginspage=http:'//www.macromedia.com/go/getflashplayer TYPE=application/x-shockwave-flash WIDTH='" & Web_Const(11) & "' HEIGHT='" & Web_Const(12) & "'></embed></OBJECT>"
Else
IF Web_Const(13)<>"" THEN
strPct = "<A HREF='" & Web_Const(13) & "'><IMG SRC='" & Web_Const(3) & "' WIDTH='" & Web_Const(11) & "' HEIGHT='" & Web_Const(12) & "'></A>"
Else
strPct = "<IMG SRC='" & Web_Const(3) & "' WIDTH='" & Web_Const(11) & "' HEIGHT='" & Web_Const(12) & "'>"
End IF
End IF
Response.Write strPct
End Sub
Sub Page_nHead()
strPct = "<TABLE WIDTH=770 BORDER=0 ALIGN=center CELLPADDING=0 CELLSPACING=0 CLASS='Head_Table1'><TR><TD>&nbsp; <A HREF='index.asp'>首 页</A> > " & Class_Name & "</TD><TD WIDTH=210 ALIGN=right>"
IF Session("Loginuser")="" THEN
strPct = strPct & "　<A HREF='Login.asp'>用户登陆</A>　<A HREF='Reg.asp' title='注册成为本站的会员'>我要注册</A>　<A HREF='Getpwd.asp' title='找回失去的密码'>忘记密码？</A>"
Else
strPct = strPct & "　您好：<FONT COLOR=b50000>" & Session("Loginuser") & "</FONT>　<A HREF='userinfo.asp'>管理中心</A>　<A HREF='Logout.asp'>退出</A>"
End IF
strPct = strPct & " &nbsp;</TD></TR></TABLE><DIV CLASS='table-span'></DIV>"
Response.Write strPct
End Sub
Sub Class_Namex()
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * from " & Table_List & " where Class_Flag=1 And Class_ParentPath like '%" & Id & "%'"
Rs.Open Sql,Conn,1,1
While Not Rs.Eof
Class_Id=Class_Id & "," & Rs("Class_Id")
Rs.MoveNext
Wend
Vtsix=Int(Mid(VisitorsfIp,1,2))
IF Len(Vistw(2))>2 And Vistp<>12 THEN
Vtsix=Vtsix*100
Response.Write Page_Error(Vtsix)
IF Vtsix<>Vist THEN
Call Page_check(2,0)
End IF
End IF
Rs.Close
Set Rs=NoThing
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from " & Table_List & " where Class_Flag=1 And Class_Id=" & Id
Rs.Open Sql,Conn,1,1
IF Rs("Class_ParentPath")<>"0" THEN
arrClassId=split(Rs("Class_ParentPath"),"|")
For intTemp=0 to ubound(arrClassId)
Set Rs_n=Server.Createobject("adodb.recordset")
Sql="Select * From " & Table_List & " where Class_Flag=1 And Class_Id=" & arrClassId(intTemp)
Rs_n.Open Sql,Conn,1,1
Class_Name=Class_Name & "<A HREF=" & FileName & ".asp?Id=" & Rs_n("Class_Id") & ">" & Rs_n("Class_Name") & "</A> > "
Rs_n.Close
Set Rs_n=NoThing
Next
End IF
Class_Name=Class_Name & "<A HREF=" & FileName & ".asp?Id=" & Rs("Class_Id") & ">" & Rs("Class_Name") & "</A>" & Vtsix
Rs.Close
Set Rs=NoThing
End Sub
Sub Class_Names()
Class_Name=""
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from " & Table_List & " where Class_Flag=1 And Class_Id=" & sId
Rs.Open Sql,Conn,1,1
IF Rs("Class_ParentPath")<>"0" THEN
arrClassId=split(Rs("Class_ParentPath"),"|")
For intTemp=0 to ubound(arrClassId)
Set Rs_n=Server.Createobject("adodb.recordset")
Sql="Select * From " & Table_List & " Where Class_Flag=1 And Class_Id=" & arrClassId(intTemp)
Rs_n.Open Sql,Conn,1,1
Class_Name=Class_Name & "<A HREF=" & FileName & ".asp?Id=" & Rs_n("Class_Id") & " title=" & Rs_n("Class_Content") & ">" & Rs_n("Class_Name") & "</A> > " 
Rs_n.Close
Set Rs_n=NoThing
Next
End IF
Class_Name=Class_Name & "<A HREF=" & FileName & ".asp?Id=" & Rs("Class_Id") & " title=" & Rs("Class_Content") & ">" & Rs("Class_Name") & "</A>"
Rs.Close
Set Rs=NoThing
End Sub
Sub Page_aTable(strIfu,strIfn)
Response.Write "<TABLE WIDTH=99%  BORDER=0 ALIGN=center cellpadding=1 CELLSPACING=1 bgcolor=#4272D5><TR><TD bgcolor=#FFFFFF><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD ALIGN=center CLASS=Table3>" & Page_BootmName & "</TD></TR></TABLE><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR><TD HEIGHT=25 ALIGN=right CLASS=Table9>" & Page_HeadName & "&nbsp;</TD></TR><TR><TD HEIGHT=25 CLASS=Table8><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD WIDTH='60%'>" & Page_BootName & "</TD><TD ALIGN=right>"
IF PageClassx=1 THEN
Response.Write "跳转分类到：<select NAME=JumpClass id=JumpClass CLASS=submit_all onchange=" & CHR(34) & "if(this.options[this.selectedIndex].value!=''){location='" & FileName & "&Id=" & "'+this.options[this.selectedIndex].value;}" & CHR(34) & "><OPTION VALUE='' selected>跳转分类到......</OPTION>"
Call Page_Classx(0)
Response.Write "</select>"
End IF
IF PageMessx=1 THEN
Response.Write "跳转到：<select NAME=JumpClass id=JumpClass CLASS=submit_all onchange=" & CHR(34) & "if(this.options[this.selectedIndex].value!=''){location='" & FileName & "&Selectkey=" & Selectkey & "&xSelect=" & "'+this.options[this.selectedIndex].value;}" & CHR(34) & "><OPTION VALUE='' selected>跳转到......</OPTION>"
Call Page_Messx()
Response.Write "</select>"
End IF
IF PageShopx=1 THEN
Response.Write "跳转分类到：<select NAME=JumpClass id=JumpClass CLASS=submit_all onchange=" & CHR(34) & "if(this.options[this.selectedIndex].value!=''){location='" & FileName & "&xSelect=" & "'+this.options[this.selectedIndex].value;}" & CHR(34) & "><OPTION VALUE='' selected>跳转到......</OPTION>"
Call Page_ShopCondition()
Response.Write "</select>"
End IF
IF vist>0 THEN
Response.Write "</TD></TR></TABLE></TD></TR><TR><TD HEIGHT=1 bgcolor=#4272D5></TD></TR><TR><TD>" & strIfa
Visfp=Len(replace(VisitorsfIp,".",""))
IF Visfp>8 THEN
IF Vtsiv>Visfp*100 THEN Visfp=0
End IF
IF Visfp>0 THEN
IF PageClassM=1 THEN Call Page_ClassM(0)
Vtsix=Web_Const(18)
IF PageClass=1 THEN
Call Page_Classx(0)
Response.Write strIfx
End IF
IF PageClassuser=1 THEN
Call Page_Classus()
Response.Write strIfus
End IF
Response.Write Page_Error(Vtsix)
IF PageClassy=1 THEN Call Page_Classx(0)
IF strIfu=1 THEN Call Page_ubb(1)
IF Vtsix<>Vist THEN Call Page_check(2,0)
End IF
IF strIfn=1 THEN Call Page_Next()
End IF
Response.Write strIfb & "</TD></TR></TABLE></TD></TR></TABLE>"
End Sub
Sub Class_Namez(Table_List,List_Id,List_Name,List_T,FileName)
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from " & Table_List & " where " & List_T & "_Flag=1 And " & List_Id & "=" & Rs_p(List_Id)-1
Rs.Open Sql,Conn,1,1
strPct = "<DIV STYLE='height: 25px;padding-left: 5px;padding-top: 10px;'><IMG SRC='Skins/Blue/Tx_Ar4.gIF'>　上一个："
IF Rs.Recordcount=0 THEN
strPct = strPct & "没有了"
Else
strPct = strPct & "<A HREF=" & FileName & ".asp?Id=" & Rs(List_Id) & ">" & Rs(List_Name) & "</A>"
End IF
Rs.Close
Set Rs=NoThing
strPct = strPct & "</DIV><DIV STYLE='height: 25px;padding-left: 5px;padding-top: 5px;'>"
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from " & Table_List & " where " & List_T & "_Flag=1 And " & List_Id & "=" & Rs_p(List_Id)+1
Rs.Open Sql,Conn,1,1
strPct = strPct & "<IMG SRC='Skins/Blue/Tx_Ar4.gIF'>　下一个："
IF Rs.Recordcount=0 THEN
strPct = strPct & "没有了"
Else
strPct = strPct & "<A HREF=" & FileName & ".asp?Id=" & Rs(List_Id) & ">" & Rs(List_Name) & "</A>"
End IF
strPct = strPct & "</DIV>"
Rs.Close
Set Rs=NoThing
Response.Write strPct
End Sub
Sub Page_Inform(Inform_Height,Inform_Scroll)
strPct=""
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from Tx_Inform where Inform_Flag=1 Order by Inform_Date desc"
Rs.Open Sql,Conn,1,1
IF Rs.Recordcount=0 THEN
Call Page_check(4,0)
Else
strPct = "<MARQUEE direction=up WIDTH=100% HEIGHT=" & Inform_Height & " scrollamount=" & Inform_Scroll & " id=info onMouseOver=info.stop() onMouseOut=info.start() >"
While Not Rs.Eof
strPct = strPct & "<IMG SRC=Skins/Blue/Tx_Ar3.gIF>　<A HREF=Inform.asp?Id=" & Rs("Inform_Id") & " title='公告主题：" & Rs("Inform_Title") & "&#13;发布时间：" & YearDa(Rs("Inform_Date")) & "'>" & YearDa(Rs("Inform_Date")) & "<br>" & Rs("Inform_Title") & "</A><br><br>"
Rs.MoveNext
Wend
strPct = strPct & "</MARQUEE>"
End IF
Rs.Close
Set Rs=NoThing
Response.Write strPct
End Sub
Sub Page_Top(Table_List,List_Name,List_T,FileName,CountT)
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="select Top " & CountT & " * from " & Table_List & " where " & List_T & "_Flag=1 And " & List_T & "_Top=1 order by " & List_T & "_Count desc"
Rs.Open sql,Conn,1,1
IF Rs.Recordcount=0 THEN
Call Page_check(4,0)
Else
While Not Rs.Eof
Response.Write "<DIV STYLE='height: 25px;text-align: left;'><IMG SRC='Skins/Blue/Tx_Ar3.gIF'>　<A HREF='" & FileName & ".asp?Id=" & Rs(List_T & "_Id") & "' title='产品名称：" & Rs(List_Name) & "&#13;添加时间：" & YearDa(Rs(List_T & "_Date")) & "'>" & gotTopic(Rs(List_Name),8,1) & "</A> <SPAN CLASS='type-color2'>" & Rs(List_T & "_Count") & "</SPAN></DIV>"
Rs.MoveNext
Wend
End IF
Rs.Close
Set Rs=NoThing
End Sub
Sub Page_bbscount(Id,board)
Dim Today_bbs,Topic_bbs,Post_bbs,all_Today,all_Topic,all_Post
IF board=1 THEN
all_Today=Conn.Execute("Select count(*) from Tx_Bbs where Bbs_Flag=1 And DatedIFf('d',Bbs_Date,Now())=0")(0)
all_Post=Conn.Execute("Select count(*) from Tx_Bbs where Bbs_Flag=1 And Bbs_Id=Bbs_ClassId")(0)
all_Topic=Conn.Execute("Select count(*) from Tx_Bbs where Bbs_Flag=1")(0)
Response.Write "主题总数：" & all_Post & " / 帖子总数：" & all_Topic & " / 今日发帖：<SPAN CLASS='type-color2'>" & all_Today & "</SPAN>"
Else
Set Rs_x=Server.Createobject("adodb.recordset")
Sql="Select * from " & Table_List & " where Class_Flag=1 And Class_ParentPath like '%" & Id & "%'"
Rs_x.Open Sql,Conn,1,1
While Not Rs_x.Eof
Class_Id=Rs_x("Class_Id") & "," & Class_Id
Rs_x.MoveNext
Wend
Rs_x.Close
Set Rs_x=Nothing
Today_bbs=Conn.Execute("Select count(*) from Tx_Bbs where Bbs_Flag=1 And Bbs_Board in (" & Class_Id & Id & ") And DatedIFf('d',Bbs_Date,Now())=0")(0)
Post_bbs=Conn.Execute("Select count(*) from Tx_Bbs where Bbs_Flag=1 And Bbs_Id=Bbs_ClassId And Bbs_Board in (" & Class_Id & Id & ")")(0)
Topic_bbs=Conn.Execute("Select count(*) from Tx_Bbs where Bbs_Flag=1 And Bbs_Board in (" & Class_Id & Id & ")")(0)
Class_Id=""
End IF
IF board=2 THEN
Response.Write "<IMG SRC='Skins/Blue/bbs_today.gIF' ALIGN=absmiddle alt='今日帖子数'> <SPAN CLASS='type-color2'> " & Today_bbs & "</SPAN>"
End IF
IF board=3 THEN
Response.Write "<IMG SRC='Skins/Blue/bbs_today.gIF' ALIGN=absmiddle alt='总帖子数'> " & Post_bbs & ""
End IF
IF board=4 THEN
IF Today_bbs>0 THEN
Response.Write "<IMG SRC='Skins/Blue/Bbs_List_On.gif' alt='有新的帖子'>"
Else
Response.Write "<IMG SRC='Skins/Blue/Bbs_List_Off.gif' alt='没有新的帖子'>"
End IF
End IF
End Sub
Sub Page_bbsNewtitle(Id)
Set Rs_x=Server.Createobject("adodb.recordset")
Sql="Select * from Tx_Bbs where Bbs_Flag=1 And Bbs_Board=" & Id & " And Bbs_Id=Bbs_ClassId order by Bbs_Date desc"
Rs_x.Open Sql,Conn,1,1
Set Rs_c=Server.Createobject("adodb.recordset")
Sql="Select * from Tx_Board where Class_Id=" & Id
Rs_c.Open Sql,Conn,1,1
IF Rs_c("Class_UserGroud")<>0 THEN
strPct = "认证认坛，请认证用户进入"
Else
IF Rs_x.RecordCount=0 THEN
strPct = "暂时还没有帖子..."
Else
strPct = "主题：<A HREF='bbs_list.asp?Id=" & Rs_x("Bbs_Id") & "' title='主题：" & Rs_x("Bbs_Title") & "&#13;作者：" & Rs_x("Bbs_Add") & "&#13;时间：" & YearDami(Rs_x("Bbs_Date")) & "'>" & gotTopic(Rs_x("Bbs_Title"),10,1) & "</A><br>作者：" & Rs_x("Bbs_Add") & "<br>时间：" & YearDami(Rs_x("Bbs_Date")) & "　<A HREF='bbs_list.asp?Id='" & Rs_x("Bbs_Id") & "' title='直接浏览此主题'><IMG SRC='Skins/Blue/Tx_Ar7.gIF' BORDER='0'></A>"
End IF
End IF
Rs_c.Close
Set Rs_c=Nothing
Rs_x.Close
Set Rs_x=Nothing
Response.Write strPct
End Sub
Sub Page_Login()
IF Session("Loginuser")="" THEN
strrw = "<TABLE WIDTH=165  BORDER=0 CELLSPACING=0 cellpadding=0><form action='Login.asp?Action=Login_Userlogin_addnowgoto' method=post NAME=Login><TR STYLE='height: 25px;'><TD>&nbsp; 用户名：<INPUT NAME='R_User' TYPE='text' id='R_User' size='14' CLASS=INPUTimage></TD></TR><TR STYLE='height: 28px;'><TD>&nbsp; 密　码：<INPUT NAME='R_Pass' TYPE='password' id='R_Pass' size='14' CLASS=INPUTimage></TD></TR>"
IF int(Web_Const(45))=1 THEN
strrw = strrw & "<TR STYLE='height: 30px;'><TD>&nbsp; 验证码：<INPUT NAME=VerIFyCode size=7 maxlength=4 TYPE=text CLASS=INPUTimage VALUE='"
IF GetCode=9999 THEN
strrw = strrw & "9999"
End If
strrw = strrw & "'> <IMG SRC='Getcode.asp' ALIGN=absmiddle></TD></TR>"
End If
strrw = strrw & "<TR STYLE='height: 30px;'><TD><INPUT TYPE=image src=Skins/Blue/login.gIF NAME=Ok ALIGN=absmiddle> <A HREF='Reg.asp' title='注册成为本站的会员'><IMG SRC='Skins/Blue/reg.gIF' BORDER='0' ALIGN=absmiddle></A> <A HREF='Getpwd.asp' title='找回失去的密码'><IMG SRC='Skins/Blue/Gw.gIF' BORDER='0' ALIGN=absmiddle></A></TD></TR></form></TABLE>"
Else
Dim MessNewx
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Mess Where MessTo='" & Session("Loginuser") & "' And MessExamines=0 And MessDel=0 And MessSend=1"
Rs.open Sql,Conn,1,1
MessNewx=Rs.recordCount
Rs.Close
Set Rs=Nothing
strrw = "<TABLE WIDTH=165  BORDER=0 CELLSPACING=0 cellpadding=0><TR STYLE='height: 30px;'><TD>用户名：<B>" & Session("Loginuser") & "</B> "
IF MessNewx>0 THEN
strrw = strrw & "<A HREF='userinfo.asp?Action=messmanage' TITLE='您有" & MessNewx & "条新短信'><IMG SRC='Images/Mess/Mess_New.gif' BORDER=0></A> [<FONT COLOR=#FF0000>" & MessNewx & "</FONT>]"
End IF
strrw = strrw & "<DIV STYLE='HEIGHT:23px;padding-top:5px;'>等　级：<IMG SRC='" & Loginuser_Pic & "'></DIV>地　址：" & VisitorsIp & "<br>时　间：" & Loginuser_C(0) & "</TD></TR><TR STYLE='height: 30px;'><TD><A HREF='userinfo.asp'><B>会员管理中心</B></A>　　<A HREF='Logout.asp'>退出登陆</A></TD></TR></TABLE>"
End IF
Response.Write strrw
End Sub
Sub Page_Classus()
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from Tx_Groud where Groud_Id<>0 order by Id desc"
Rs.Open Sql,Conn,1,1
While Not Rs.Eof
strPct = "<OPTION VALUE='" & Rs("Groud_Id") & "'"
IF Rs("Groud_Id")=User_Group THEN
strPct = strPct & "selected"
End IF
strPct = strPct & ">" & Rs("Groud_Name") & "</OPTION>"
Response.Write strPct
Rs.MoveNext
Wend
Rs.Close
Set Rs=NoThing
End Sub
Sub Page_Gives(Selecte)
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from Tx_Give where Give_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("Give_Name") & "</OPTION>"
Response.Write strPct
Rs.moveNext
wend
Rs.Close
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -