📄 getcode.asp
字号:
<!--#include file = include.asp-->
<body background="images/BLogo.gif">
<form name="form" method="POST" action="">
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="486" border="0" cellpadding="0" align="center" cellspacing="1" bgcolor="#96C5DE">
<tr>
<td colspan=3><!--#include file = topMenu.htm--></td>
</tr>
<tr>
<td height="25" bgcolor="#a4cee4" colspan="2" align="center" valign="middle"><b>市场区域代码</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" valign="middle" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>市场名称:</td>
<td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%
Domain=Request.ServerVariables("SERVER_NAME")
gFilePath=Request.ServerVariables("PATH_INFO")
gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
CountN=len(gFilePath)
gFilePath=lcase(left(gFilePath,CountN-1))
gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
AllPath=Domain&gfilepath
function ClearTitle(content)
if content<>"" then
ClearTitle=content
ClearTitle=replace(ClearTitle,"[粗]","")
ClearTitle=replace(ClearTitle,"[红]","")
ClearTitle=replace(ClearTitle,"[蓝]","")
ClearTitle=replace(ClearTitle,"[绿]","")
end if
End function
Sub HotNews()
set rs3=Server.CreateObject("adodb.recordset")
sql3="Select HNTitle,HotNews from Config"
rs3.open sql3,conn,1,1
set rs=Server.CreateObject("adodb.recordset")
sql="Select top "&rs3("HotNews")&" BigClassEN,SmallClassEN,FileName,Title from News order by Click Desc"
rs.open sql,conn,1,1
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\HotNews.js")
for i=1 to rs3("HotNews")
if rs.eof then exit for
Content=""&rs3("HNTitle")&"<a href=http://"&AllPath&""&rs("BigClassEN")&"/"&rs("SmallClassEN")&"/"&rs("FileName")&".htm target=_blank>"&ClearTitle(rs("Title"))&"</a><br>"
CrHNJS.WriteLine("document.write("""&Content&""")")
rs.movenext
next
rs.close
set rs=nothing
rs3.close
set rs3=nothing
CrHNJS.Close
set MyFile=nothing
End Sub
if request.querystring("action")="RefurbishHotNewsJS" then
Call HotNews()%>
<script>alert("刷新成功")</script>
<%end if
set rs = server.createobject("adodb.recordset")
rs.source = "select BigClassEN,BigClassCN from bigclass order by id desc "
rs.open rs.source,conn,1,1
if not rs.eof then
BigClassEN=rs("BigClassEN")
Def="<script src=http://"&AllPath&rs("BigClassEN")&"/index.js></script>"
%>
<select onchange=DoBigClass(this.options[this.selectedIndex].value)>
<%
while not rs.eof
%>
<option value="<script src=<%="http://"&AllPath&rs("BigClassEN")&"/index.js"%>></script>"><%=rs("BigClassCN")%></option>
<%
rs.movenext
wend
rs.close
end if
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" valign="top" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>栏目代码：</td>
<td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<textarea name="BigClassCode" cols="52" rows="3"><%=Def%></textarea>
</td>
</tr>
<tr>
<td height="25" bgcolor="#a4cee4" colspan="2" align="center" valign="middle"><b>商务代表代码</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" valign="middle" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>商务代表:</td>
<td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select BigClassCN,SmallClassEN,SmallClassCN from SmallClass order by id desc "
rs.open rs.source,conn,1,1
if not rs.eof then
Def="<script src=http://"&AllPath&BigClassEN&"/"&rs("SmallClassEN")&"/index.js></script>"
%>
<select onchange=DoSmallClass(this.options[this.selectedIndex].value)>
<%
while not rs.eof
set rs1=Server.CreateObject("adodb.recordset")
sql1="select BigClassEN from BigClass where BigClassCN='"&rs("BigClassCN")&"'"
rs1.open sql1,conn,1,1
i=i+1
%>
<option value="<script src=<%="http://"&AllPath&rs1("BigClassEN")&"/"&rs("SmallClassEN")&"/index.js"%>></script>"><%=rs("SmallClassCN")%></option>
<%
rs.movenext
wend
rs.close
end if
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" valign="top" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>栏目代码：</td>
<td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<textarea name="SmallClassCode" cols="52" rows="3"><%=Def%></textarea>
</td>
</tr>
<tr>
<td height="25" bgcolor="#a4cee4" colspan="2" align="center" valign="middle"><b>其它代码</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" valign="top" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>最新添加商务信息代码：</td>
<td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%
set rs=conn.execute("select BigClassEN,BigClassCN from bigclass order by id desc ")
if not rs.eof then
BigClassEN=rs("BigClassEN")
Def="<script src=http://"&AllPath&rs("BigClassEN")&"/HotNews.js></script>"
%>
<select onchange=DoLastNews(this.options[this.selectedIndex].value)>
<option value="<script src='<%="http://"&AllPath&"LastNews.js"%>'></script>">全部栏目</option>
<%
while not rs.eof
%>
<option value="<script src='<%="http://"&AllPath&rs("BigClassEN")&"/LastNews.js"%>'></script>"><%=rs("BigClassCN")%></option>
<%
rs.movenext
wend
rs.close
end if
%>
</select>
<textarea name="LastNewsCode" cols="52" rows="3"><script src='<%="http://"&AllPath&"LastNews.js"%>'></script></textarea>
</td>
</tr>
<tr>
<td height="25" bgcolor="#a4cee4" colspan="2" align="center" valign="middle"><b>自建JS</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" valign="middle" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>JS名称:</td>
<td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%
Def=""
set rs = server.createobject("adodb.recordset")
rs.source = "select JSNameEN,JSNameCN from JS order by id desc "
rs.open rs.source,conn,1,1
if not rs.eof then
Def="<script src=http://"&AllPath&"JS/"&rs("JSNameEN")&".js></script>"
%>
<select onchange=DoJSCode(this.options[this.selectedIndex].value)>
<%
while not rs.eof
%>
<option value="<script src=<%="http://"&AllPath&"JS/"&rs("JSNameEN")&".js"%>></script>"><%=rs("JSNameCN")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
end if
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" valign="top" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>JS代码：</td>
<td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<textarea name="JSCode" cols="52" rows="3"><%=Def%></textarea>
</td>
</tr>
</table>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -