📄 ks.supply.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/KS.PublicCls.asp"-->
<!--#include file="../KS_Cls/KS.RCls.asp"-->
<!--#include file="Include/Session.asp"-->
<%
'****************************************************
' Software name:Kesion CMS 供求系统OEM
'****************************************************
Dim KSCls
Set KSCls = New Admin_GQ
KSCls.Execute()
Set KSCls = Nothing
Class Admin_GQ
Private KS,KSCls
'=====================================定义本页面全局变量=====================================
Private ID, totalPut, CurrentPage, GQDQl, RS
Private FolderSql, FolderRS, GQTid, ParentID, FolderName, CreateDate, TempStr
Private KeyWord, SearchType, StartDate, EndDate, ParentRs, SearchParam
Private MaxPerPage,SpecialID,T, TitleStr, VerificStr, ShortName
Private TypeStr, CreateDateStr, CreaterStr, AttributeStr
Private FolderID, GQTemplateID, GQFnameType, GQFsoType, TN, TI, Navigation, TJ,Action
Private TemplateID,GQID,Recommend,IsTop
Private Popular, Verific, Comment, Slide,Rolls,ChangesUrl, KeyWords, ScreenTime, AddDate, Hits
Private CurrPath, InstallDir, UpPowerFlag,GQInput,GQDQ, Page
Private ComeUrl,SqlStr,Errmsg,Makehtml,FnameType,Tid,Fname,KSRObj
Private ReadPoint,ChargeType,PitchTime,ReadTimes,InfoPurview,arrGroupID,DividePercent
Private BigClassID,SmallClassID,Title,Price,TypeID,ValidDate,GQContent,ContactMan,Tel,CompanyName,Address,Province,City,Email,Zip,Fax,HomePage,I,UserDefineFieldArr,UserDefineFieldValueStr,PhotoUrl
Private ChannelID,F_B_Arr,F_V_Arr,D_F_Arr
'=============================================================================================
Private Sub Class_Initialize()
Set KS=New PublicCls
Set KSCls=New ManageCls
End Sub
Private Sub Class_Terminate()
Call CloseConn()
Set KS=Nothing
Set KSCls=Nothing
End Sub
'主体部分
Public Sub Execute()
'收集搜索参数
KeyWord = KS.G("KeyWord")
SearchType = KS.G("SearchType")
StartDate = KS.G("StartDate")
EndDate = KS.G("EndDate")
'搜索参数集合
SearchParam = "KeyWord=" & KeyWord & "&SearchType=" & SearchType & "&StartDate=" & StartDate & "&EndDate=" & EndDate
ComeUrl=Request.ServerVariables("HTTP_REFERER")
Select Case KS.G("Action")
Case "AddInfo","Edit"
Call GetGQInfo()
Case "AddSave","EditSave"
Call GQInfoSave()
case "Manage"
call Manage()
Case "DelFolder"
Call DelGQFolder()
Case "DelInfo"
Call DelGQ()
Case "DelInfo"
If Not KS.ReturnPowerResult(ChannelID, "M" & ChannelID & "10013") Then
Call KS.ReturnErr(1, "")
Else
Call DelGQ()
End If
Case "MoveToClass"
If Not KS.ReturnPowerResult(ChannelID, "M" & ChannelID & "10010") Then
Call KS.ReturnErr(1, "")
Else
Call DoMoveToClass()
End If
Case "DoMoveToClass"
If Not KS.ReturnPowerResult(ChannelID, "M" & ChannelID & "10010") Then
Call KS.ReturnErr(1, "")
Else
Call DoMoveToClass()
End If
Case Else
Call GQMain()
End Select
End Sub
Sub GQMain()
ID = Trim(KS.G("ID"))
If ID = "" Then ID=Conn.Execute("Select ID From KS_Class Where TN='0' And ChannelID=8")(0):TempStr = "大类" Else TempStr = "小类"
'MaxPerPage = KS.GetConfig("MaxPerPage") '取得每页显示数量
MaxPerPage=20
If KS.G("page") <> "" Then
CurrentPage = KS.ChkClng(KS.G("page"))
Else
CurrentPage = 1
End If
If ID <> "0" Then
Set ParentRs = conn.Execute("Select TN From KS_Class Where ID='" & ID & "'")
ParentID = ParentRs(0)
ParentRs.Close:Set ParentRs = Nothing
End If
With Response
.Write "<html>"
.Write "<head>"
.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
.Write "<title>供求管理主页面</title>"
.Write "<link href=""Include/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
.Write "<script language=""JavaScript"">"
.Write " var DomainStr='" & KS.GetDomain & "';"
.Write " var ClassID='" & ID & "'; //目录ID" & vbCrLf
.Write " var ParentID='" & ParentID & "'; //父目录ID" & vbCrLf
.Write " var Page='" & CurrentPage & "'; //当前页码" & vbCrLf
.Write " var KeyWord='" & KeyWord & "'; //关键字" & vbCrLf
.Write " var SearchParam='" & SearchParam & "'; //搜索参数集合" & vbCrLf
.Write " var TempStr='" & TempStr & "';" & vbCrLf
.Write "</script>" & vbCrLf
.Write "<script language=""JavaScript"" src=""Include/Common.js""></script>" & vbCrLf
.Write "<script language=""JavaScript"" src=""Include/ContextMenu1.js""></script>"
.Write "<script language=""JavaScript"" src=""Include/SelectElement.js""></script>"
%>
<script language="javascript">
var SelectedFile='',SelectedFolder='';
function OpenTheFolder(FolderID)
{
location.href='KS.Supply.asp?ID='+FolderID;
parent.frames['BottomFrame'].location.href='Split.asp?ButtonSymbol=Disabled&FolderID='+FolderID;
}
function ChangeUp()
{
if (ClassID=='0') return;
location.href='KS.Supply.asp?ID='+ParentID;
if (ParentID=='0')
parent.frames['BottomFrame'].location.href='Split.asp?OpStr=供求管理 >> <font color=red>浏览大类</font>&ButtonSymbol=Disabled&FolderID=0';
else
parent.frames['BottomFrame'].location.href='Split.asp?ButtonSymbol=ViewGQFolder&FolderID='+ParentID;
}
function CreateFolder()
{
location.href='KS.Class.asp?ChannelID=8&Action=Add&FolderID='+ClassID;
parent.frames['BottomFrame'].location.href='Split.asp?ChannelID=8&OpStr=添加'+TempStr+'&ButtonSymbol=AddClass&FolderID='+ClassID;
}
function EditFolder(FolderID)
{
location.href='KS.Class.asp?ChannelID=8&Action=Edit&FolderID='+FolderID;
parent.frames['BottomFrame'].location.href='Split.asp?ChannelID=8&OpStr=编辑'+TempStr+'&ButtonSymbol=EditClass&FolderID='+ClassID;
}
function Edit()
{ GetSelectStatus('FolderID','DID');
if (!((SelectedFile=='')&&(SelectedFolder=='')))
{
if (SelectedFolder!='')
if (SelectedFolder.indexOf(',')==-1)
EditFolder(SelectedFolder);
else alert('一次只能够编辑一个'+TempStr);
if (SelectedFile!='')
if (SelectedFile.indexOf(',')==-1)
{
location.href='KS.Supply.asp?Page='+Page+'&Action=Edit&'+SearchParam+'&ID='+SelectedFile;
if (KeyWord=='')
parent.frames['BottomFrame'].location.href='Split.asp?OpStr=编辑信息&ButtonSymbol=AddGQ&FolderID='+ClassID;
else
parent.frames['BottomFrame'].location.href='Split.asp?OpStr=供求管理 >> 搜索结果 >> <font color=red>编辑信息</font>&ButtonSymbol=AddGQ';
}
else alert('一次只能够编辑一个信息');
}
else
{
alert('请选择要编辑的信息或'+TempStr);
}
}
function Delete()
{ GetSelectStatus('FolderID','GQID');
if (!((SelectedFile=='')&&(SelectedFolder=='')))
{ if (confirm('确定删除选中的目录或信息吗?'))
{if (SelectedFolder!='')
location="KS.Supply.asp?Action=DelFolder&Page="+Page+"&FolderID="+SelectedFolder;
if (SelectedFile!='')
location='KS.Supply.asp?Action=DelInfo&Page='+Page+'&'+SearchParam+'&GQID='+SelectedFile;
}
//给选定项设为空
SelectedFile='';
SelectedFolder='';
}
else alert('请选择要删除的'+TempStr+'或信息!');
}
function Comment()
{ top.CommonComment.FromUrl='KS.Supply.asp?ID='+ClassID;
parent.frames['BottomFrame'].location.href='split.asp?ButtonSymbol=Disabled&Opstr=信息留言管理';
//location.href='Admin_Comment.asp?ChannelID=8&InfoID='+SelectedFile+'&ClassID='+ClassID;
location.href='KS.Comment.asp?ChannelID=8';
}
function ViewGQ(GQID)
{
window.open (DomainStr+'Supply/ShowInfo.asp?ID='+GQID);
}
function GetKeyDown()
{
if (event.ctrlKey)
switch (event.keyCode)
{ case 90 : Reload(); break;
case 78 : event.keyCode=0;event.returnValue=false;CreateFolder();break;
case 65 : SelectAllElement();break;
case 66 : event.keyCode=0;event.returnValue=false;ChangeUp();break;
case 69 : event.keyCode=0;event.returnValue=false;Edit();break;
case 68 : Delete();break;
case 70 : event.keyCode=0;event.returnValue=false;parent.frames['LeftFrame'].initializeSearch('Supply')
}
else if (event.keyCode==46) Delete('');
}
function Reload()
{
location.href='KS.Supply.asp?ID='+ClassID+'&page='+Page+'&'+SearchParam;
}
function unselectall()
{
if(document.myform.chkAll.checked)
{
document.myform.chkAll.checked = document.myform.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != 'chkAll'&&e.disabled==false)
e.checked = form.chkAll.checked;
}
}
</script>
<%
.Write "</head>"
.Write "<body topmargin=""0"" leftmargin=""0"" onclick=""SelectElement();"" onkeyDown=""GetKeyDown();"">"
.Write "<table width=""99%"" align=center style=""margin-top:5px"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""border"">"
.Write " <tr class='title'>"
.Write " <td height=""23"">"
.Write " <table width='100%' border='0' cellspacing=""0"" cellpadding=""0"">"
.Write " <tr><td><font color=#ffffff>管理导航：</font>"
.Write "<a href='?Action=AddInfo'><font color=#ffffff>添加信息</font></a> ｜ "
.Write "<a href='#' onClick=""parent.frames['LeftFrame'].initializeSearch('Supply')""><font color=#ffffff>搜索助理</font></a> ｜ "
.Write "<a href='#' onclick=""ChangeUp();"" ><font color=#ffffff>回上一级</font></a>"
.Write "</td><td align=right>"
.Write "</td></tr>"
.Write "</table>"
.Write (" </td>")
.Write ("</tr>")
.Write ("<tr class='tdbg'><td colspan=2 height=25>")
FolderSql = "Select OrderID,ID,TN,FolderName,Creater,CreateDate from KS_Class where ChannelID=8 And tj=2 order by id desc"
Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open FolderSql,Conn,1,1
IF Not RS.Eof Then
.Write "<table border='0' width='100%'>"
.WRite "<tr>"
I=0
Do While Not RS.Eof
I=I+1
.Write "<td width='20%'>"
.Write "<img src=""Images/Folder/domain.gif"" align=absmiddle><a href='#' onclick='OpenTheFolder(""" & RS("ID") & """);'>" & KS.GotTopic(RS("FolderName"),12) & "</a>(" & Conn.Execute("select count(id) from KS_Class Where ChannelID=8 And TN='" & RS("ID") & "'")(0) & ")"
.Write "</td>"
If I Mod 5=0 Then .Write "</tr><tr>"
RS.MoveNext
Loop
Do While I<5
.Write "<td> </td>"
I=I+1
Loop
.Write "</tr>"
.Write "</table>"
Else
.Write "<div align=center>您还没有添加任何供求类别!</div>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -