<%@ Language=VBScript %>
重庆阿波罗电器有限公司
<%
Session("AdminName") = ""
Session("AdminPass") = ""
Sub SetNull()
UserNmae.value =""
PassWord.value = ""
end Sub
%>
<%
Sub GetInput()
Dim RS,SQL
strOption = Request.QueryString("Option")
intFatherID = Request.QueryString("FatherID")
if(Len(Trim(intFatherID)) = 0) then
Set RS = Server.CreateObject("ADODB.RecordSet")
SQL="Select * From Class order by Datet DESC"
RS.Open SQL,Conn,1,3
if not RS.BOF and not RS.EOF then
intFatherID = RS("id")
end if
RS.close
Set RS = nothing
end if
End Sub
Sub GetClassName(intClassID,Byref strClassName)
Dim RS,SQL
Set RS = Server.CreateObject("ADODB.RecordSet")
SQL="Select * From Class where id=" & intClassID
RS.Open SQL,Conn,1,3
if not RS.BOF and not RS.EOF then
strClassName = RS("Name")
end if
RS.close
Set RS = nothing
End Sub
Sub GetSearchCondition(Byref str)
str = Request.Form("hid_Condition")
'Response.Write(" str= " & str)
if(Len(Trim(str)) = 0) then
str = Session("SearchCondition")
end if
End Sub
Dim RS,SQL
Dim intProID,intFatherID,strClassName
Dim strOption
Call GetInput()
Call GetClassName(intFatherID,strClassName)
%>
<%
Dim strMove
strMove = Request.QueryString("Move")
if strMove= "Next" and Session("CurrentPage") < Session("TotalPage") then
Session("CurrentPage") = Session("CurrentPage") + 1
intIndex = intIndex - 1
end if
if strMove = "Prev" then
Session("CurrentPage") = Session("CurrentPage") - 1
intIndex = intIndex - 1
end if
if Session("CurrentPage") ="" or Session("CurrentPage") < 1 or strMove = "" then
Session("CurrentPage")=1
end if
%>
<%
Dim RS1,SQL1,rs2
if request.QueryString("sortid")<>"" then
sql1="select * from Product where fatherid="&request.QueryString("sortid")
else
sql1="select * from Product"
end if
%>
