IT中国的世界排名突破10万!
IT中国经过一段发展与努力,目前世界排名终于突破10万了。
IT中国经过一段发展与努力,目前世界排名终于突破10万了。
<SCRIPT LANGUAGE="JavaScript">
var d, s; // 声明变量。
d = new Date(); // 创建 Date 对象。
s = d.getYear() + "."; // 获取年份。
s += (d.getMonth() + 1) + "."; // 获取月份。
s += d.getDate(); // 获取日。
document.write (s); // 返回日期。
</script>
昨晚重装了电脑,原来装的是win2003,后来中毒后杀完毒还能用就继续用着,只是运行不了新安装的软件,后来实在没办法才重装了XP,但是装完出现一个问题,系统居然装在了L盘,原来的D盘到J盘依此类推往前进了一位即从C盘到I盘~~
原来的xampp装在了D盘,现在变成了C盘,打开XAMPP-Control面板,启动不了apache,
后来想起apache/conf/httpd.conf里面的设置有问题,于是把所有的路径有关的设置都由原来的D:改为C:,
发现还是不行,于是运行apache_start.bat,
由报错信息发现原来是httpd.conf下面还包含了xampp/apache/conf/extra目录下面的各个配置文件,
于是把extra目录下面的所有配置文件里面的路径信息都由D:改为C:再运行apache_start.bat发现还是报错,
The Apache service named reported the following error:
>>> (OS 10048)通常每个套接字地址(协议/网络地址/端口)只允许使用一次。 : make_sock: could not bind to address 0.0.0.0:80
再上百度搜,网上说的是可能是有别的程序占用80端口,但是在cmd命令行下面运行 netstat -an发现80端口没有被占用,可能是机器装了IIS或Skype,但是机器里都没有安装这些软件,郁闷至极~~~
然后看了这篇文章upload/200904262258077878.jpg" border="0" small="0" alt="" />
于是把下面的一行Listen注释掉,再启动~OK!!!
友情提示:清理前提是(1)小8需破解;(2)安装X-Plore等类型文件管理器;
不会破解小8的朋友看下面或 这里http://bbs.dospy.com/thread-1661812-1-1.html
SELECT CASE REQUEST("action")
'先放到库中,再生成页面
'添加开始---------------------------------------------------------------------------------
CASE "add"
title=request("title")
content=request("content")
moban=request("moban")
class_id=request("class_id")
class_name=request("class_name")
class_big=request("class_big")
zz=request("zz")
from=request("from")
up=request("up")
pic=request("pic")
picurl=request("images")
addtime=now()
hits=request("hits")
fname=makefilename(addtime)
addtime=now()
if title="" and content="" then
response.write " "
else
set rs=server.createobject("adodb.recordset")
sql="select * from article where (id=null)"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=content
rs("moban_id")=moban
rs("class_id")=class_id
rs("class_name")=class_name
rs("class_big")=class_big
rs("pic")=pic
rs("picurl")=picurl
rs("addtime")=addtime
rs("zz")=zz
rs("from")=from
rs("hits")=hits
rs("up")=up
rs.update
moban_id=rs("moban_id")
title=rs("title")
content=txt(rs("content"))
addtime=rs("addtime")
addtime=FormatDateTime(addtime,1)
fileid=rs("id")
fname=fname&FileType
rs("fname")=fname
rs("oktime")=addtime
rs.update
rs.close
生成页面程序开始
sql="select * from moban where id="&moban_id&" " 'moban是数字,是模版id
rs.open sql,conn,1,1
okweb=rs("content")
'替换模版中的相关字段
okweb=replace(okweb,"$nnso_title",title)'文章题目
okweb=replace(okweb,"$nnso_content",content)'文章内容
okweb=replace(okweb,"$nnso_addtime",addtime)'录入时间
okweb=replace(okweb,"$nnso_from",from)'文章出处
okweb=replace(okweb,"$nnso_class_big",class_big)'大类
okweb=replace(okweb,"$nnso_class_name",class_name)'小类名称
okweb=replace(okweb,"$nnso_path",class_id)'位置,路径
okweb=replace(okweb,"$nnso_zz",zz)'文章作者
okweb=replace(okweb,"$nnso_id",fileid)'评论时候的id
'开始生成
Set fso = Server.CreateObject("Scripting.FileSystemObject")
filePath=server.mappath(("../html/")&(class_id))
Set f = fso.CreateTextFile(filePath& "\" & fname)
f.WriteLine okweb
f.close
'生成页面程序结束
'添加日志
ips=Request.ServerVariables("Remote_Addr")
sj=now
conn.Execute "INSERT INTO log(username,action,ip,sj) VALUES('文章添加','["&title&"]成功添加','"&ips&"','"&sj&"' )"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "article.asp?class_id="&class_id&""
'添加结束---------------------------------------------------------------------------------
'修改开始---------------------------------------------------------------------------------
CASE "mod"
'第一步:删除目录下的文件
fileid=request("id")
class_id=request("class_id")
fname=request("fname")
filePath=server.mappath(("../html/")&(class_id))& "\" &fname
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filepath)
Set fso = nothing
on error resume next
'先删除目录下文件,再删除库中的记录,否则无法进行查询
title=request("title")
content=request("content")
moban=request("moban")
class_id=request("class_id")
class_name=request("class_name")
class_big=request("class_big")
zz=request("zz")
from=request("from")
up=request("up")
pic=request("pic")
picurl=request("images")
hits=request("hits")
if title="" and content="" then
response.write " "
else
set rs=server.createobject("adodb.recordset")
sql="select * from article where id="+fileid
rs.open sql,conn,1,3
rs("title")=title
rs("content")=content
rs("moban_id")=moban
rs("class_id")=class_id
rs("class_name")=class_name
rs("class_big")=class_big
rs("pic")=pic
rs("picurl")=picurl
rs("zz")=zz
rs("from")=from
rs("hits")=hits
rs("up")=up
rs.update
moban_id=moban
title=txt(rs("title"))
content=txt(rs("content"))
addtime=rs("addtime")
addtime=FormatDateTime(addtime,1)
fileid=rs("id")
rs.close
'生成页面程序开始
sql="select * from moban where id="&moban_id&" " 'moban是数字,是模版id
rs.open sql,conn,1,1
okweb=rs("content")
'替换模版中的相关字段
okweb=replace(okweb,"$nnso_title",title)'文章题目
okweb=replace(okweb,"$nnso_content",content)'文章内容
okweb=replace(okweb,"$nnso_addtime",addtime)'录入时间
okweb=replace(okweb,"$nnso_from",from)'文章出处
okweb=replace(okweb,"$nnso_path",class_id)'位置,路径
okweb=replace(okweb,"$nnso_class_big",class_big)'大类
okweb=replace(okweb,"$nnso_class_name",class_name)'小类名称
okweb=replace(okweb,"$nnso_zz",zz)'文章作者
okweb=replace(okweb,"$nnso_id",fileid)'评论时候的id
'开始生成
Set fso = Server.CreateObject("Scripting.FileSystemObject")
filePath=server.mappath(("../html/")&(class_id))
Set f = fso.CreateTextFile(
filePath& "\" & fname)
f.WriteLine okweb
f.close
'添加日志
ips=Request.ServerVariables("Remote_Addr")
sj=now
conn.Execute "INSERT INTO log(username,action,ip,sj) VALUES('文章修改','"&fname&"-修改成功','"&ips&"','"&sj&"' )"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "article.asp?class_id="&class_id&""
'生成页面程序结束
'修改结束--------------------------------------------------------------------------------
'删除开始--------------------------------------------------------------------------------
CASE "del"
articleid=request("id")
class_id=request("class_id")
set rs=server.createobject("adodb.recordset")
sql="select id,class_id,fname from article where id="+articleid
rs.open sql,conn,1,3
fname=rs("fname")
class_id=rs("class_id")
rs.close
set rs=nothing
'删除目录下的文章
filePath=request.ServerVariables("APPL_PHYSICAL_PATH")&("html\")&(class_id)& "\" &fname
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filepath)
Set fso = nothing
'先删除目录下文件,再删除库中的记录,否则无法进行查询
conn.execute("delete from article where id="&articleid&"")
'添加日志
ips=Request.ServerVariables("Remote_Addr")
sj=now
conn.Execute "INSERT INTO log(username,action,ip,sj) VALUES('文章删除','"&fname&"-成功删除','"&ips&"','"&sj&"' )"
conn.close
set conn=nothing
'重定向返回
response.redirect "article.asp?class_id="&class_id&""
'删除结束--------------------------------------------------------------------------------
END SELECT
<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("time.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
times=txt.ReadLine
Else
response.write "
"
HtmlPage = "time.txt" '//生成的HTML文件名
Template = NOW()
Set FSO = Server.CreateObject ("Scripting.FileSystemObject")
Set FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))
FileOut.WriteLine Template
FileOut.Close
Set FSO = Nothing
end If
If datediff("s",times,NOW()) > 3600 Then '//上次更新到现在的时间 大于 3600秒 则 更新
response.write "
"
code = "这里是需要生成的html代码" '//如何得到代码的方式有很多
'//用FSO生成HTML页面
HtmlPage = "index.html" '//生成的HTML文件名
Template = code
Set FSO = Server.CreateObject ("Scripting.FileSystemObject")
Set FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))
FileOut.WriteLine Template
FileOut.Close
Set FSO = Nothing
'//用FSO生成time.txt文件
HtmlPage = "time.txt" '//生成的HTML文件名
Template = NOW()
Set FSO = Server.CreateObject ("Scripting.FileSystemObject")
Set FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))
FileOut.WriteLine Template
FileOut.Close
Set FSO = Nothing
Else
response.write "
"
End If
%>
官方目前对相关文章标签进行了最后的修改,在此给出使用方法和实际应用效果及注意事项的说明
1、相关文章标签是因是针对某篇文章的,所以不能缓存,很占资源,会造成生成文档HTML更慢,这是必然的,当然对于做正规站的人可以不必考虑这个问题;
2、相关文章默认使用Tag或关键字前三个词作为种子(Tag优先),如果你的关键字是自动生成的,那么不一定完全关连,那是必然的,可以通过手适当调整。
调用代码:(以默认模板的结构为范例)
<div class="hot mt1">
<dl class="tbox">
<dt><strong>相关文章</strong></dt>
<dd>
<ul class="c1 ico2">
{dede:likearticle}
<li><a href="[field:arcurl/]">[field:title/]</a></li>
{/dede:likearticle}
</ul>
</dd>
</dl>
</div>
onclick="javascript:window.location.href='index.asp'"
/*获得TEXT.AREATEXT的值*/
var textval = $(”#text_id”).attr(”value”);
//或者
var textval = $(”#text_id”).val();
/*获取单选按钮的值*/
var valradio = $(”input[@type=radio][@checked]“).val();
/*获取一组名为(items)的radio被选中项的值*/
var item = $(’input[@name=items][@checked]‘).val();
/*获取复选框的值*/
var checkboxval = $(”#checkbox_id”).attr(”value”);
/*获取下拉列表的值*/
var selectval = $(’#select_id’).val();
//文本框,文本区域:
$(”#text_id”).attr(”value”,”);//清空内容
$(”#text_id”).attr(”value”,’test’);//填充内容
//多选框checkbox:
$(”#chk_id”).attr(”checked”,”);//使其未勾选
$(”#chk_id”).attr(”checked”,true);//勾选
if($(”#chk_id”).attr(’checked’)==true) //判断是否已经选中
//单选组radio:
$(”input[@type=radio]“).attr(”checked”,’2′);//设置value=2的项目为当前选中项
//下拉框select:
$(”#select_id”).attr(”value”,’test’);//设置value=test的项目为当前选中项
$(”testtest2“).appendTo(”#select_id”)//添加下拉框的option
$(”#select_id”).empty();//清空下拉框
获取一组名为(items)的radio被选中项的值
var item = $(’input[@name=items][@checked]‘).val();//若未被选中 则val() = undefined
获取select被选中项的文本
var item = $(”select[@name=items] option[@selected]“).text();
select下拉框的第二个元素为当前选中值
$(’#select_id’)[0].selectedIndex = 1;
radio单选组的第二个元素为当前选中值
$(’input[@name=items]‘).get(1).checked = true;
//重置表单
$(”form”).each(function(){
.reset();
});
灵动标签统计某表数据:
[e:loop={"select count(*) as title from [!db.pre!]ecms_info where ismember=1 and checked=1",1,24,0}]
总数:<font color="red"><?=$bqr[title]?></font>[/e:loop]条
某表某栏目统计:
[e:loop={"select count(*) as title from [!db.pre!]ecms_info where ismember=1 and checked=1 and classid=20",1,24,0}]
总数:<font color="red"><?=$bqr[title]?></font>[/e:loop]条
调用会员总数:
[e:loop={"select count(*) as title from [!db.pre!]enewsmember where checked=1",1,24,0}]
总数:<font color="red"><?=$bqr[title]?></font>[/e:loop]个
......
自己站里用到的 友情连接调用
[e:loop={'select * from [!db.pre!]enewslink where checked=1 order by lid desc limit 7',20,24,0}]
<TD><a href="<?=$bqr[lurl]?>"><?=$bqr[lname]?></a></TD>
[/e:loop]