📄 admin_sourcemanage.asp
字号:
Call SetStat("Author", 4)
Case "AuthorDElite"
Call SetStat("Author", 5)
Case "AuthorElite"
Call SetStat("Author", 6)
Case "CopyFrom"
Call CopyFrom
Case "AddCopyFrom"
Call AddCopyFrom
Case "ModifyCopyFrom"
Call ModifyCopyFrom
Case "SaveAddCopyFrom"
Call SaveAddCopyFrom
Case "SaveModifyCopyFrom"
Call SaveModifyCopyFrom
Case "DelCopyFrom"
Call DelCopyFrom
Case "CopyFromDis"
Call SetStat("CopyFrom", 1)
Case "CopyFromEn"
Call SetStat("CopyFrom", 2)
Case "CopyFromDTop"
Call SetStat("CopyFrom", 3)
Case "CopyFromTop"
Call SetStat("CopyFrom", 4)
Case "CopyFromDElite"
Call SetStat("CopyFrom", 5)
Case "CopyFromElite"
Call SetStat("CopyFrom", 6)
Case "Producer"
Call Producer
Case "AddProducer"
Call AddProducer
Case "ModifyProducer"
Call ModifyProducer
Case "SaveAddProducer"
Call SaveAddProducer
Case "SaveModifyProducer"
Call SaveModifyProducer
Case "DelProducer"
Call DelProducer
Case "ProducerDis"
Call SetStat("Producer", 1)
Case "ProducerEn"
Call SetStat("Producer", 2)
Case "ProducerDTop"
Call SetStat("Producer", 3)
Case "ProducerTop"
Call SetStat("Producer", 4)
Case "ProducerDElite"
Call SetStat("Producer", 5)
Case "ProducerElite"
Call SetStat("Producer", 6)
Case "Trademark"
Call Trademark
Case "AddTrademark"
Call AddTrademark
Case "ModifyTrademark"
Call ModifyTrademark
Case "SaveAddTrademark"
Call SaveAddTrademark
Case "SaveModifyTrademark"
Call SaveModifyTrademark
Case "DelTrademark"
Call DelTrademark
Case "TrademarkDis"
Call SetStat("Trademark", 1)
Case "TrademarkEn"
Call SetStat("Trademark", 2)
Case "TrademarkDTop"
Call SetStat("Trademark", 3)
Case "TrademarkTop"
Call SetStat("Trademark", 4)
Case "TrademarkDElite"
Call SetStat("Trademark", 5)
Case "TrademarkElite"
Call SetStat("Trademark", 6)
Case "KeyLink"
Call KeyLink(0)
Case "AddKeyLink"
Call AddKeyLink(0)
Case "ModifyKeyLink"
Call ModifyKeyLink(0)
Case "SaveAddKeyLink"
Call SaveAddKeyLink(0)
Case "SaveModifyKeyLink"
Call SaveModifyKeyLink(0)
Case "DelKeyLink"
Call DelKeyLink("KeyLink")
Case "runKeyLink"
Call SetKeyLink(0, 1)
Case "disKeyLink"
Call SetKeyLink(0, 0)
Case "Rtext"
Call KeyLink(1)
Case "AddRtext"
Call AddKeyLink(1)
Case "ModifyRtext"
Call ModifyKeyLink(1)
Case "SaveAddRtext"
Call SaveAddKeyLink(1)
Case "SaveModifyRtext"
Call SaveModifyKeyLink(1)
Case "DelRtext"
Call DelKeyLink("Rtext")
Case "runRtext"
Call SetKeyLink(1, 1)
Case "disRtext"
Call SetKeyLink(1, 0)
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
Response.Write "参数丢失！"
Exit Sub
End Sub
'**************
'关键字处理部分
'**************
Sub KeywordManage()
Dim rsKeyList, sqlKeyList
Dim iCount
Response.Write "<br>" & vbCrLf
Response.Write "<form name='myform' method='Post' action='Admin_SourceManage.asp' onsubmit=""return confirm('确定要删除选中的关键字吗？');"">"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr align='center' class='title'>"
Response.Write " <td width='30'><strong>选中</strong></td>"
Response.Write " <td width='40' height='22'><strong>序号</strong></td>"
Response.Write " <td height='22'><strong>关键字</strong></td>"
Response.Write " <td width='80' height='22'><strong>使用频率</strong></td>"
Response.Write " <td width='150' height='22'><strong>最后使用时间</strong></td>"
Response.Write " <td width='70' height='22'><strong>操 作</strong></td>"
Response.Write " </tr>"
Set rsKeyList = Server.CreateObject("Adodb.RecordSet")
sqlKeyList = "select * from PE_NewKeys Where ChannelID=" & ChannelID
If Keyword <> "" Then
sqlKeyList = sqlKeyList & " and KeyText like '%" & Keyword & "%' "
End If
sqlKeyList = sqlKeyList & " order by LastUseTime Desc"
rsKeyList.Open sqlKeyList, Conn, 1, 1
If rsKeyList.BOF And rsKeyList.EOF Then
rsKeyList.Close
Set rsKeyList = Nothing
Response.Write " <tr class='tdbg'><td colspan='6' align='center'><br>没有任何关键字！<br><br></td></tr></Table>"
Exit Sub
End If
totalPut = rsKeyList.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsKeyList.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Do While Not rsKeyList.EOF
Response.Write " <tr align='center' class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td><input name='ID' type='checkbox' id='ID' value='" & rsKeyList("ID") & "'"
Response.Write " onclick='unselectall()'></td>"
Response.Write " <td>" & rsKeyList("ID") & "</td>"
Response.Write " <td>" & GetSubStr(rsKeyList("KeyText"), 40, True) & "</td>"
Response.Write " <td>" & rsKeyList("Hits") & "</td>"
Response.Write " <td>" & rsKeyList("LastUseTime") & "</td>"
Response.Write "<td>"
Response.Write "<a href='Admin_SourceManage.asp?TypeSelect=ModifyKeyword&ChannelID=" & ChannelID & "&ID=" & rsKeyList("ID") & "'>修改</a> "
Response.Write "<a href='Admin_SourceManage.asp?TypeSelect=DelKeyword&ChannelID=" & ChannelID & "&ID=" & rsKeyList("ID") & "' onClick=""return confirm('确定要删除此关键字吗？');"">删除</a>"
Response.Write "</td>"
Response.Write "</tr>"
iCount = iCount + 1
If iCount >= MaxPerPage Then Exit Do
rsKeyList.MoveNext
Loop
rsKeyList.Close
Set rsKeyList = Nothing
Response.Write "</table> "
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td width='200' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form)' value='checkbox'> 选中本页显示的所有关键字</td>"
Response.Write " <td><input name='TypeSelect' type='hidden' id='TypeSelect' value='DelKeyword'>"
Response.Write " <input name='ChannelID' type='hidden' id='ChannelID' value=" & ChannelID & ">"
Response.Write " <input name='Submit' type='submit' id='Submit' value='删除选中的关键字'>"
Response.Write " <input type='submit' name='Submit2' value='删除本频道全部关键字' onClick=""document.myform.TypeSelect.value='DelAllKeyword'""></td>"
Response.Write " </tr>"
Response.Write "</table></form>"
Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个关键字", True)
Response.Write "<br><table width='100%' border='0' cellpadding='0' cellspacing='0' class='border'>"
Response.Write "<tr class='tdbg'><td width='80' align='right'><strong>关键字搜索：</strong></td>"
Response.Write "<td><table border='0' cellpadding='0' cellspacing='0'>"
Response.Write "<form method='Get' name='SearchForm' action='Admin_SourceManage.asp'>"
Response.Write "<input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
Response.Write "<input name='TypeSelect' type='hidden' id='TypeSelect' value='" & TypeSelect & "'>"
Response.Write "<tr><td height='28' align='center'>"
Response.Write "<select name='Field' size='1'><option value='name' selected>关键字名</option></select>"
Response.Write "<input type='text' name='keyword' size='20' value='"
If Keyword <> "" Then
Response.Write Keyword
Else
Response.Write "关键字"
End If
Response.Write "' maxlength='50'>"
Response.Write "<input type='submit' name='Submit' value='搜索'>"
Response.Write "</td></tr></form></table></td></tr></table>"
End Sub
Sub AddKeyword()
Response.Write "<form method='post' action='Admin_SourceManage.asp' name='myform'>"
Response.Write " <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border' >"
Response.Write " <tr class='title'> "
Response.Write " <td height='22' colspan='2'> <div align='center'><strong>新 增 关 键 字</strong></div></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'> "
Response.Write " <td width='100%' align='center' class='tdbg'><strong> 关 键 字：</strong><input name='KeyText' type='text'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'> "
Response.Write " <td width='100%' align='center' class='tdbg'><strong> 所属频道：</strong><select name='ChannelID'>" & ChannelList & "<option value=0"
If ChannelID = 0 Then
Response.Write " selected>全部频道</option></select></td>"
Else
Response.Write ">全部频道</option></select></td>"
End If
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height='40' colspan='2' align='center' class='tdbg'>"
Response.Write " <input name='TypeSelect' type='hidden' id='TypeSelect' value='SaveAddKeyword'>"
Response.Write " <input type='submit' name='Submit' value=' 添 加 ' style='cursor:hand;'> <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Keyword';"" style='cursor:hand;'></td>"
Response.Write " </tr>"
Response.Write "</table></form>"
End Sub
Sub ModifyKeyword()
Dim KeyID
Dim rsKey, sqlKey
KeyID = PE_CLng(Trim(Request("ID")))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -