www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\adminadmin\soft\collection.asp
<% Const UnsealHttpLog=False Const blnUnsealZip=False Dim UseDownload, RepeatDeal, isProgress, TrueAddress, setInterval Dim MaxDownSize, AllowDownExt, FilePrefix, FileSuffix, isZipFile, ZipMode Dim ZipTimeout, MaxZipsize, AllowFileExt, WinRarPath, DownFilePath Dim ReadmePath, ReadmeFile, RarNoteFile, DownZipKey Dim StopItem,IsDown,MaxAddress,PathForm,SaveFilePath Dim AutoRename,IsNowTime,AllHits,star,isLogin Dim ItemID,ListID,InfoID,downid,ItemTitle,classid,specialid,showcode,strHtmlCode,softid Dim ListTitle,FindListArea,FindListLink,FindReplace,IsRedirect,RedirectUrl Dim InfoTitle,FindTitle,FindContent,FindCategory,FindDateTime,FindOthers,Pagination,FindPagination,TitleReplace,ContentReplace,AppendUrl,sourceReplace Dim Encoding,RemoteListUrl,NamedDemourl,RemoveCode Dim m_strHtmlCode,m_strHtmlList,m_strLinkArry,m_strFindLink Dim m_strClassHtml,m_strParent,m_strChild,m_strCookies,m_strReferer Dim AutoClass,RetuneClass,strReplace,startcode,lastcode Dim DownlistHtml,DownlistCode,m_strDownHtml,m_strDownList,m_strDownArry Dim m_strTitle,m_strContent,m_strVersion,m_strSubTitle,m_strDateTime,m_strFilesize,m_intAllHits,m_strAlphaTitle Dim m_strLanguage,m_strSoftType,m_strImpower,m_strRunSystem,m_strContact,m_strHomePage,m_strStar,m_intStar Dim blnFileToLocal,DownAddrNum,m_strDownAddress If Not IsObject(CJ_Conn) Then CJ_ConnectionDatabase blnFileToLocal=False DownAddrNum=0 Sub LoadItemSetting(MYID) Dim Rs,SQL,TempXmlDoc SQL = "SELECT TOP 1 * FROM NC_SoftItem WHERE ItemID=" & MYID Set Rs = cmHttp.Execute(SQL) Set TempXmlDoc = NewAsp.RecordsetToxml(Rs,"row","xml") Rs.Close Set Rs = Nothing Application.Lock Set Application(NewAsp.CacheName&"_softitem_"&ChannelID&"_"&MYID) = TempXmlDoc Application.unLock End Sub Sub LoadInfoTemplate(MYID) Dim Rs,SQL,TempXmlDoc SQL = "SELECT TOP 1 * FROM NC_TPL_Info WHERE InfoID=" & MYID Set Rs = cmHttp.Execute(SQL) Set TempXmlDoc = NewAsp.RecordsetToxml(Rs,"row","xml") Rs.Close Set Rs = Nothing Application.Lock Set Application(NewAsp.CacheName&"_infotemplate_"&ChannelID&"_"&MYID) = TempXmlDoc Application.unLock End Sub Sub LoadListTemplate(MYID) Dim Rs Set Rs = cmHttp.Execute("SELECT TOP 1 * FROM NC_TPL_List WHERE listid="&MYID) If Not(Rs.BOF And Rs.EOF) Then IsRedirect=Rs("IsRedirect") RedirectUrl=Rs("RedirectUrl") FindListArea=Split(Rs("FindListArea")&"||||||||||||", "|||") FindListLink=Split(Rs("FindListLink")&"||||||||||||", "|||") FindReplace=Split(Rs("FindReplace")&"||||||||||||", "|||") End If Rs.Close:Set Rs = Nothing End Sub Sub LoadSoftConfig() Dim Rs,SQL,TempXmlDoc SQL = "SELECT TOP 1 * FROM NC_SoftConfig" Set Rs = cmHttp.Execute(SQL) Set TempXmlDoc = NewAsp.RecordsetToxml(Rs,"row","xml") Rs.Close Set Rs = Nothing Application.Lock Set Application(NewAsp.CacheName&"_softconfig") = TempXmlDoc Application.unLock End Sub Function getsoftid(ByVal URL) On Error Resume Next Dim oRs,SQL URL = Trim(LCase(URL)) SQL="SELECT id,softid FROM [NC_Softlog] WHERE ChannelID="&ChannelID&" And url='"&Replace(URL, "'", "")&"'" Set oRs=cmHttp.Execute(SQL) If oRs.BOF And oRs.EOF Then getsoftid=0 Else getsoftid=oRs("softid") End If oRs.Close: Set oRs = Nothing End Function Sub UpdateHttpLog(ByVal URL, ByVal itemsid, ByVal sid, ByVal title, ByVal cid, ByVal star) Dim oRs,SQL URL=Trim(LCase(URL)) Set oRs=NewAsp.CreateAXObject("ADODB.Recordset") SQL="SELECT * FROM [NC_Softlog] WHERE ChannelID="&ChannelID&" And url='"&Replace(URL, "'", "")&"'" oRs.Open SQL, CJ_Conn, 1, 3 If oRs.BOF And oRs.EOF Then Exit Sub Else oRs("ItemID").Value = itemsid oRs("softid").Value = sid oRs("classid").Value = cid oRs("title").Value = Trim(title) oRs("addtime").Value = Now() oRs("records").Value = 1 If oRs("star") = 0 Then oRs("star").Value = star End If oRs.Update End If oRs.Close: Set oRs = Nothing End Sub Sub AddHttpLog(ByVal m_url, ByVal itemsid) If Len(m_url) < 10 Then Exit Sub Dim Rs,SQL m_url = Trim(LCase(m_url)) Set Rs=NewAsp.CreateAXObject("ADODB.Recordset") SQL="SELECT * FROM [NC_Softlog] WHERE ChannelID="&ChannelID&" And url='"&Replace(m_url, "'", "")&"'" Rs.Open SQL, CJ_Conn, 1, 3 If Rs.BOF And Rs.EOF Then Rs.AddNew Rs("ChannelID").Value = ChannelID Rs("ItemID").Value = itemsid Rs("softid").Value = 0 If AutoClass = 0 Then Rs("classid").Value = classid Else Rs("classid").Value = 0 End If Rs("title").Value = "" Rs("url").Value = Replace(m_url, "'", "") Rs("star").Value = 0 Rs("plugin").Value = 0 Rs("addtime").Value = Now() Rs("hits").Value = 0 Rs("records").Value = 0 Rs("islock").Value = 0 Rs.Update Else Rs("ItemID").Value = itemsid Rs("addtime").Value = Now() Rs.Update End If Rs.Close Set Rs = Nothing End Sub %>