📄 sk_checkdatabase.asp
字号:
<%
RsItem.Close
Set RsItem=nothing
%>
</form>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<tr>
<td height="22" colspan="2" class="tdbg">
<%
Response.Write ShowPage("sk_checkDatabase.asp?Action="& Action &"&radiobutton="& lx,HistrolyNum,MaxPerPage,True,True," 个记录")
%>
</td>
</tr>
</table>
</body>
</html>
<%End Sub%>
<%
'-------------图片列表------------------
Sub Main2
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>所 有 记 录</strong></div></td>
</tr>
</table>
<table align="center" class="tableBorder" border="0" cellspacing="1" width="100%" cellpadding="0">
<form name="form1" method="POST" action="sk_checkDatabase.asp">
<tr class="tdbg" style="padding: 0px 2px;">
<td width="57" height="22" align="center" class=ButtonList>选择</td>
<td width="142" align="center" class=ButtonList>文件所在</td>
<td width="358" align="center" class=ButtonList>图片标题</td>
<td width="110" height="22" align="center" class=ButtonList>栏目</td>
<td width="90" height="22" align="center" class=ButtonList>操作</td>
</tr>
<%
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select * from sk_photo"
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
SqlItem=SqlItem & " order by ID DESC"
RsItem.open SqlItem,ConnItem,1,1
If (Not RsItem.Eof) and (Not RsItem.Bof) then
RsItem.PageSize=MaxPerPage
Allpage=RsItem.PageCount
If Currentpage>Allpage Then Currentpage=1
HistrolyNum=RsItem.RecordCount
RsItem.MoveFirst
RsItem.AbsolutePage=CurrentPage
i_His=0
Do While not RsItem.Eof
%>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#cccccc'" style="padding: 0px 2px;">
<td width="57" align="center"> <input type="checkbox" value="<%=RsItem("ID")%>" name="HistrolyID" onClick="unselectall(this.form)" style="border: 0px;background-color: #E1F4EE;"> </td>
<td width="142" align="center">
</td>
<td width="358" align="left"><a href="show.asp?id=<% = RsItem("ID") %>&lx=2" target="_blank"><%=RsItem("Title")%></a></td>
<td width="110" align="center"><%
set lb=ConnItem.execute("select top 1 * from SK_Class where ClassID="& RsItem("TID")&"")
if not lb.eof then Response.Write lb("ClassName")
lb.close
set lb=nothing
%></td>
<td width="90" align="center"> <a href="sk_checkDatabase.asp?Action=del&Page=<%= CurrentPage %>&HistrolyID=<%=RsItem("ID")%>&radiobutton=<%=lx%>" onclick='return confirm("确定要删除此记录吗？");'>删除</a> </td>
</tr>
<%
i_His=i_His+1
If i_His > MaxPerPage Then
Exit Do
End If
RsItem.Movenext
Loop
%>
<tr class="tdbg">
<td colspan=8 height="30">
<input name="Action" type="hidden" id="Action" value="ok">
<input name="radiobutton" type="hidden" id="Action" value="<%=lx%>">
<input name="page" type="hidden" value="<%=CurrentPage %>">
<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" style="border: 0px;background-color: #E1F4EE;">
全选 </td>
</tr>
<tr class="tdbg">
<td colspan=8 height="30" align=center>
<input type="submit" value="删除所选记录" name="DelFlag" onclick='return confirm("确定要删除选中的记录吗？");' class="lostfocus" style="cursor: hand;background-color: #cccccc;">
<input type="submit" value="删除全部记录" name="DelFlag" onclick='return confirm("确定要删除所有的记录吗？");' class="lostfocus" style="cursor: hand;background-color: #cccccc;">
<input type="button" class="lostfocus" value="输出全部图片地址" name="DelFlag" onClick="window.location.href='SK_checkDatabase.asp?Urlsc=ok&radiobutton=2'" style="cursor: hand;background-color: #cccccc;">
<br>
<input name="picurl_th" type="text" class="lostfocus" value="" size="80" maxlength="150">
<input type="submit" value="图片地址替换" class="lostfocus" name="DelFlag" onClick="" style="cursor: hand;background-color: #cccccc;">
</tr>
<tr class="tdbg">
<td colspan=8 height="30">
</td>
</tr>
<%Else%>
<tr class="tdbg">
<td colspan='9' class="tdbg" align="center"><br>
系统中暂无记录！</td>
</tr>
<%End If%>
<%
RsItem.Close
Set RsItem=nothing
%>
</form>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<tr>
<td height="22" colspan="2" class="tdbg">
<%
Response.Write ShowPage("sk_checkDatabase.asp?Action="& Action &"&radiobutton="& lx,HistrolyNum,MaxPerPage,True,True," 个记录")
%>
</td>
</tr>
</table>
</body>
</html>
<%End Sub
Sub InsertIntoBase(collectlx,FRS)
Response.Flush()
set rslb=Conn.Execute("select top 1 * from ks_Class Where ID='" & FRS("ClassID") &"'")
if not rslb.eof then
Set CMSRS=Server.CreateObject("ADODB.RECORDSET")
CMSRS.Open "Select top 1 * From KS_Article Where Title='" & FRS("Title") & "' And Tid='" & FRS("ClassID") & "'",Conn,1,3
If CMSRS.EOF Then
CMSRS.addnew
NewsID=GetInfoID_CMS(1)
CMSRS("NewsID")=NewsID
CMSRS("Tid")=FRS("ClassID")'目标ID
CMSRS("Keywords")=FRS("Keyword")
CMSRS("Title")=FRS("Title")
if FRS("IncludePic")=1 then
CMSRS("PicNews")=1
UploadFiles=Split(FRS("UploadFiles"),"|")
If Ubound(UploadFiles) >= 0 then
CMSRS("picurl")=UploadFiles(0)
Else
CMSRS("picurl")=FRS("UploadFiles")
End if
Else
CMSRS("PicNews")=0
End if
CMSRS("ShowComment")=0
CMSRS("ArticleContent")=FRS("Content")
CMSRS("Author")=FRS("Author")
CMSRS("Origin")=FRS("CopyFrom")
CMSRS("Rank")="★★★"
CMSRS("Hits")=FRS("Hits") '点击数
CMSRS("AddDate")=FRS("UpdateTime")
CMSRS("TemplateID")=rslb("ArticleTemplateID")
CMSRS("articleFsoType")=rslb("ArticleFsoType")
CMSRS("Fname")=NewsID & ".htm"
CMSRS("RefreshTF")=0
CMSRS("ArticleInput") = FRS("Inputer")
CMSRS("Changes") = 0
CMSRS("Recommend") = 0
CMSRS("Rolls") = 0
CMSRS("strip") = 0
CMSRS("Popular") = 0
CMSRS("Verific") = 1 '审核与否
CMSRS("Slide") = 0
CMSRS("BeyondSavePic") = 0
CMSRS("Comment") = 0
CMSRS("OrderID") = 1
CMSRS.update
SuccNum = SuccNum + 1
Else
ErrNum = ErrNum + 1
End if
Inum=Inum+1
CMSRS.close
Set CMSRS = Nothing
end if
rslb.close
set rslb=nothing
end sub
Sub InsertIntoBase_photo(FRS)
Response.Flush()
set rslb=Conn.Execute("select top 1 * from ks_Class Where ID='" & FRS("Tid") &"'")
if not rslb.eof then
Set CMSRS=Server.CreateObject("ADODB.RECORDSET")
CMSRS.Open "Select top 1 * From KS_Photo Where Title='" & FRS("Title") & "' And Tid='" & FRS("Tid") & "'",Conn,1,3
If CMSRS.EOF Then
CMSRS.addnew
NewsID=GetInfoID_CMS(2)
CMSRS("PicID")=NewsID
CMSRS("Tid")=FRS("Tid")
CMSRS("KeyWords")=FRS("KeyWords")
CMSRS("Title")=FRS("Title")
CMSRS("PhotoUrl")=FRS("PhotoUrl")
CMSRS("PicUrls")=FRS("PicUrls")
CMSRS("PictureContent")=FRS("PictureContent")
CMSRS("Author")=FRS("Author")
CMSRS("Origin")=FRS("Origin")
CMSRS("Rank")="★★★★★"
CMSRS("Hits")=FRS("Hits")
CMSRS("HitsByDay")=MakeRandom(1)
CMSRS("HitsByWeek")=MakeRandom(2)
CMSRS("HitsByMonth")=MakeRandom(3)
CMSRS("AddDate")=FRS("AddDate")
CMSRS("TemplateID")=rslb("ArticleTemplateID")
CMSRS("PictureFsoType")=rslb("ArticleFsoType")
CMSRS("Fname")=NewsID & ".htm"
CMSRS("PictureInput")=FRS("PictureInput")
CMSRS("RefreshTF")=0
CMSRS("Recommend")=0
CMSRS("Rolls")=0
CMSRS("Strip")=0
CMSRS("Popular")=0
CMSRS("Verific")=1
CMSRS("Comment")=1
CMSRS("Score")=MakeRandom(3)
CMSRS("Slide")=0
CMSRS("BeyondSavePic")=0
CMSRS("DelTF")=0
CMSRS("OrderID")=1
CMSRS.update
SuccNum = SuccNum + 1
Else
ErrNum = ErrNum + 1
End if
CMSRS.close
Set CMSRS = Nothing
End if
rslb.close
set rslb=nothing
end sub
Sub InsertIntoBase_down(FRS)
Response.Flush()
set rslb=Conn.Execute("select top 1 * from ks_Class Where ID='" & FRS("Tid") &"'")
if not rslb.eof then ArticleTemplateID=rslb("ArticleTemplateID") : ArticleFsoType=rslb("ArticleFsoType")
Set CMSRS=Server.CreateObject("ADODB.RECORDSET")
CMSRS.Open "Select top 1 * From KS_download Where Title='" & FRS("Title") & "' And Tid='" & FRS("Tid") & "'",Conn,1,3
If CMSRS.EOF Then
CMSRS.addnew
DownID=GetInfoID_CMS(3)
CMSRS("DownID")=DownID
CMSRS("Tid")=fRS("Tid")
CMSRS("KeyWords")=fRS("KeyWords")
CMSRS("Title")=fRS("Title")
CMSRS("DownVersion")="" '版本信息
CMSRS("DownLB")="国产软件" '下载类别
CMSRS("DownYY")="" '下载语言
CMSRS("DownSQ")= "免费版" '下载授权
CMSRS("DownPT")= "Win9x/NT/2000/XP" '下载平台
CMSRS("DownSize")="0KB" '大小
CMSRS("YSDZ")="http://" '演示地址
CMSRS("ZCDZ")="http://" '注册地址
CMSRS("JYMM")="" '解压密码
CMSRS("PhotoUrl")=fRS("PhotoUrl")
CMSRS("BigPhoto")="" '软件大图
CMSRS("FlagUrl")=0 '0、默认方式 1、镜像服务器方式
CMSRS("DownUrls")=fRS("DownUrls") '下载地址，若是默认方式，则以|||隔开
CMSRS("DownContent")=fRS("DownContent") '下载简介
CMSRS("Author")=fRS("Author") '下载作者
CMSRS("Origin")=fRS("Origin") '下载来源
CMSRS("Rank")="★★★" '阅读等级
CMSRS("Hits")=fRS("Hits") '总浏览数
CMSRS("HitsByDay")=MakeRandom(1) '日浏览数
CMSRS("HitsByWeek")=MakeRandom(2) '周浏览数
CMSRS("HitsByMonth")=MakeRandom(3) '月浏览数
CMSRS("AddDate")=fRS("AddDate") '更新时间
CMSRS("TemplateID")=ArticleTemplateID '模板ID
CMSRS("DownFsoType")=ArticleFsoType '
CMSRS("Fname")=DownID &".htm"
if fRS("DownInput")<>"" then
CMSRS("DownInput")=fRS("DownInput")
else
CMSRS("DownInput")=""
end if
CMSRS("RefreshTF")=0
CMSRS("Recommend")=0
CMSRS("Popular")=0
CMSRS("Verific")=1
CMSRS("Comment")=0
CMSRS("DelTF")=0
CMSRS("OrderID")=1
CMSRS("InfoPurview")=0'查看权限0继承栏目权限,1所有会员,2指定会员组
CMSRS("ArrGroupID")="" '指定会员组的查看权限
CMSRS("ReadPoint")=0 '阅读点数
CMSRS("ChargeType")=0 '重复收费方式
CMSRS("PitchTime")=24 '重复收费小时数
CMSRS("ReadTimes")=10 '重复收费查看次数
CMSRS("DividePercent")=0
CMSRS.update
SuccNum = SuccNum + 1
Else
ErrNum = ErrNum + 1
End if
rslb.close
set rslb=nothing
CMSRS.close
Set CMSRS = Nothing
end sub
'===============================================
'函数名：FSOSaveFile
'作 用：生成文件
'参 数： Content内容,路径 注意虚拟目录
'===============================================
Sub FSOSaveFile(Content, LocalFileName)
Dim FSO, FileObj
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set FileObj = FSO.CreateTextFile(Server.MapPath(LocalFileName), True) '创建文件
FileObj.Write Content
FileObj.Close '释放对象
Set FileObj = Nothing
Set FSO = Nothing
End Sub
'Call CloseConn()
Call CloseConnItem()
%>
<!--#include file="Admin_ItemFoot.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -