Browsed by
月度归档： 2009年4月

JS获取本地时间

JS获取本地时间

Comments 0 Comment

<SCRIPT LANGUAGE="JavaScript">
  var d, s; // 声明变量。
  d = new Date(); // 创建 Date 对象。
  s = d.getYear() + ".";  // 获取年份。
  s += (d.getMonth() + 1) + ".";  // 获取月份。
  s += d.getDate(); // 获取日。
  document.write (s); // 返回日期。    
  </script>

apache2不能启动的解决办法(提示could not bind to address 0.0.0.0:80)

apache2不能启动的解决办法(提示could not bind to address 0.0.0.0:80)

Comments 0 Comment

昨晚重装了电脑，原来装的是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！！！

 
N81 系统C盘清理进行中

N81 系统C盘清理进行中

Comments 0 Comment
清理C盘文件
　　使用文件管理器(论坛里很多,自己去下)打开c盘：
    C:\DATA\LIFEBIOG 文件夹内的文件全部删除.解决拉,可以用文件动力.Y管理器.之内的软件来删除.
    直接删除文件夹时会提示有文件在使用.所以一般建议把LIFEBIOG文件夹改下名字.删除即可.
    具体原理是因为使用信息 拍摄 等功能的记录文件都存在里面,从而造成在程序启动前要扫描和写入
    1：cache文件夹是缓存目录，建议大家定时清空。
　　2：所有temp文件夹是临时目录建议清空。
　　3：依次打开C:/system/dmgr，里面有两个文件夹了，各有一个contents的文件夹,进去之后发现里面的文件是不是似曾相识？
       嘿嘿，这就是平时上网下载的一些视频啦音乐还有一些文本文件，可以安全删除，不放心的话，这里的文件可以直接打开。
　　4：c盘data目录下的installs是软件的安装目录，可以清空。
　　5、打开C盘--打开system--删除system.ini文件，重新启动手机，还能恢复这个文件，但是，文件已经没那么大了，
       再看接收短信彩信，速度已经快多了，机器运行也顺多了。（PS：此方法非高手慎用，万一你删错了必须格机不要怪偶！）
    6：删除c:/private/102072c4/reserved.bin的这个文件,节省c盘4.5M

友情提示：清理前提是（1）小8需破解；（2）安装X-Plore等类型文件管理器；
不会破解小8的朋友看下面或 这里http://bbs.dospy.com/thread-1661812-1-1.html

下面说具体说下删除步骤：
1、删除C盘根目录的Sip_c.log，飞信产生的，定期删；
2、删除C:\Private\102072c4\reserved.bin （4.7M左右，绝对可删，网络前辈指导）；
3、删除C:\private\1020735b  （临时文件，全是4.87K的，定期删）；
4、删除C:\Cache （临时文件，定期删）；
5、删除C:\system\dmgr里面的contents文件夹；
6、删除C:\data\lifeblog\textindex\textindex.db（注：需先改文件夹名）
 
另外使用习惯：（1）消息使用的存储请设置为卡（或大容量存储器）
           （2）照相机照片、“截图”软件设置到卡（或大容量存储器）
           （3）除必须要求以外，软件不要安装在C盘（手机上）
 
老有机油说C盘下看不见private文件夹，
首先看是否破解了，再看是否开起了权限，没开权限private显示为空！
ASP模版与自动生成HTML文件代码

ASP模版与自动生成HTML文件代码

Comments 0 Comment

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 

asp自动生成HTML页面代码实例

asp自动生成HTML页面代码实例

Comments 0 Comment

<%
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
%>

dede5.3技巧之-likearticle标签的使用方法与实际使用效果 相关文章

dede5.3技巧之-likearticle标签的使用方法与实际使用效果 相关文章

Comments 0 Comment

官方目前对相关文章标签进行了最后的修改，在此给出使用方法和实际应用效果及注意事项的说明

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>

Jquery表单取值赋值的一些基本操作

Jquery表单取值赋值的一些基本操作

Comments 0 Comment

/*获得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();
});
 

本人整理收藏灵动标签调用

本人整理收藏灵动标签调用

Comments 0 Comment

灵动标签统计某表数据：
[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]