禁言
寂寞香烟
- 贡献
- 33
- 鲜花
- 0
- 注册时间
- 2005-6-21
|
发表于 2005-12-8 00:07:28
|
来自 中国河南开封
惊云下载系统如何修改或者增加分类模板里的代号呢?比如
代号:网页标题:T_TITLE 分类位置:T_TYPE 本级分类名:T_NAME 本类
TOP:TXtop?
pencat=replace(pencat,"T_TYPE",thistype)
pencat=replace(pencat,"T_NAME",ttype)
pencat=replace(pencat,"T_TITLE",thistitle)
pencat=replace(pencat,"TXtop",txtop)
pencat=replace(pencat,"DOWN_LIST",dlist)
pencat=replace(pencat,"XG_LIST",xlist)
pencat=replace(pencat,"XG_INFO",xinfo)
pencat=replace(pencat,"T_USER",user)
pencat=replace(pencat,"T_content",content)
pencat=replace(pencat,"T_up",up)
pencat=replace(pencat,"T_down",down)
都在这 自己看看 看看就明白了
怎么给惊云增加自定义标签?
修改soft_makesoft.asp文件,可以在这里定义
怎么让惊云下载 点击后弹出来下载框 但保存不了文件 一直是下载
状态呢?
这个可以通过设置FTP来实现
怎么让点击下载后,出现新的下载页面,在这个新下载页面上出现下载
连接 ?
修改down.asp最后第二行:
'转向连接
response.redirect fileurl
CODE:response.write "<title>"&cxn&""&cxv&" - 下载地址
</title><a href="&fileurl&"><b><font size=""2"">下载地址--点击
开始下载</font></b></a></div></center>"
怎么叫惊云生成HTML的时候是拼音呀?
例如:生成电影 头文字D
touwendid.htm
要修改index_mb.asp,soft_makesoft.asp,soft_makesort.asp等文件
。这个有些工作量
如何在首页实现以时间来调用数据,比如说我要在一个栏目调用昨天添
加的数据,怎么实现?
参考代码:
下面定义了一个名字为aaa的标签,取的是昨天以后的记录
CODE:
i=0
sql="select top 15 cxn,cxv,id from down where date>#" & cstr
(DateAdd("d",-1,Now())) & "# order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
weektop="还没有软件"
else
do while not rs.eof
aaa=aaa&"·<a href=""../soft/soft_"&rs("id")&".htm"">"&rs
("cxn")&" "&rs("cxv") &"</a><br>"
i=i+1
if i>=15 then exit do
参考代码:
下面定义了一个名字为aaa的标签,取的是昨天以后的记录
[code]
i=0
sql="select top 15 cxn,cxv,id from down where date>#" & cstr
(DateAdd("d",-1,Now())) &a ...
如果我想调用明天的数据,是不是把-1改为+1就可以了
在下载页怎么直接显示出上传的缩侵图?
在服务器安装生成图片缩略图组件(比如ASPJPEG),修改upload.asp
最近软件更新可以用下面的代码?
CODE:[Copy to clipboard]<%
rs.open ("select top 20 cxn,cxv,id,tid from down where gs=0
order by date desc"),conn,1,1
if rs.eof then
%>
<tr>
<td width="100%">还没有软件</td>
</tr>
<%
else
i=0
do while not rs.eof
%>
top 20 为软件显示的数量多少,
TXtop 之类的如何修改的?如何修改推荐个数?
打开down_makesoft.asp或down_makesort.asp找到
CODE:
'########读取本类top10
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from down where tid in ("&sqqq&") order by hits
desc"
rs.open sql,conn,1,1
if rs.eof then
txtop="·还没有下载"
else
do while not rs.eof
h=h+1
txtop=txtop&"·<a href=""../soft/"&rs("id")&".htm"">"&rs
("cxn")&" "&rs("cxv")&"</a><br>"
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
其中if h>=10 then exit do,这里10就是默认个数
列表部分(T_LB) 在哪修改?
down_makesort.asp中
怎么设置TXtop 每个推荐的字数 就是每个推荐的 设置它为10个字 ?
参考
CODE:
''########读取本类top10
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from down where tid in ("&sqqq&") order by hits
desc"
rs.open sql,conn,1,1
if rs.eof then
txtop="·还没有下载"
else
do while not rs.eof
h=h+1
txtop=txtop&"·<a href=""../soft/"&rs("id")&".htm"">"&left(rs
("cxn")&" "&rs("cxv"),20)&"</a><br>"
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
请问怎么把下载地址的文字连接改成图片的???
就是把“下载地址1” 改用图片
修改soft_makesoft.asp中
CODE:
'########读取下载连接
sql="select * from downfile where downid="&id&" order by
downno"
rs.open sql,conn,1,1
if not rs.eof then
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<img src=../images/play_"&gs&".gif width=16
height=16> "
else
dlist=dlist&"<script language=""javascript"">function JyDownH
(htmlurl){var newwin=window.open
(htmlurl,'','toolbar=no,location=no,directories=no,status=no,m
enubar=no,scrollbars=no,resizable=no');return false;}
</script>"
end if
do while not rs.eof
pi=pi+1
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<a target=""_self"" href=""javascript:""
onClick=""window.open('../play.asp?id="&id&"&no="&rs
("downno")
&"','','toolbar=no,location=no,directories=no,status=no,menuba
r=no,scrollbars=yes,resizable=no,width=368,height=285,status=n
o,resizable=no')"">["&pi&"]</a>"
else
dlist=dlist&"<a href=""../down.asp?id="&id&"&no="&rs
("downno")&""" onclick=""return JyDownH(this.href);""><img
border=0 src=../images/d_download.gif width=14 height=14>点这
里下载-> "
if rs("filename")<>"" then
dlist=dlist&""&rs("filename")&""
else
dlist=dlist&""&cxn&" "&cxv&""
end if
dlist=dlist&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
'#######读取相关软件
为
CODE:
'########读取下载连接
sql="select * from downfile where downid="&id&" order by
downno"
rs.open sql,conn,1,1
if not rs.eof then
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<img src=../images/play_"&gs&".gif width=16
height=16> "
else
dlist=dlist&"<script language=""javascript"">function JyDownH
(htmlurl){var newwin=window.open
(htmlurl,'','toolbar=no,location=no,directories=no,status=no,m
enubar=no,scrollbars=no,resizable=no');return false;}
</script>"
end if
do while not rs.eof
pi=pi+1
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<a target=""_self"" href=""javascript:""
onClick=""window.open('../play.asp?id="&id&"&no="&rs
("downno")
&"','','toolbar=no,location=no,directories=no,status=no,menuba
r=no,scrollbars=yes,resizable=no,width=368,height=285,status=n
o,resizable=no')"">["&pi&"]</a>"
else
dlist=dlist&"<a href=""../down.asp?id="&id&"&no="&rs
("downno")&""" onclick=""return JyDownH(this.href);""><img
border=0 src=../images/d_download.gif width=14 height=14><img
src=xxx>-> "
'if rs("filename")<>"" then
'dlist=dlist&""&rs("filename")&""
'else
'dlist=dlist&""&cxn&" "&cxv&""
'end if
dlist=dlist&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
'#######读取相关软件
也可以在首页模板改
参考:
i=0
sql="select top 28 id,cxn,cxv,hot from down order by hits
desc"
rs.open sql,conn,1,1
if rs.eof then
top="还没有软件"
else
do while not rs.eof
if rs("hot")=5 then '这里默认推荐等级为5的软件为推荐软件
top=top&"·<a href=""../soft/"&rs("id")&"/"">"&rs("cxn")
&rs("cxv")&"推荐</a><br>"
else
top=top&"·<a href=""../soft/"&rs("id")&"/"">"&rs("cxn")
&rs("cxv")&"</a><br>"
end if
i=i+1
if i>=28 then exit do
rs.movenext
loop
end if
rs.close
怎么样在 “傲游(Maxthon) v1.5 build 95 增强版 荐 (10.6) ” 推
荐的帖子后面加个“荐”字?
代码应该如何写呢。试了好多次,都不成功!
这个可以修改down_makesoft.asp中修改模板 |
|