| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3266801
建立时间:2005年6月6日 |
| |
|
 [delpih编程]莫名其妙的上不了网，居然抽插头解决了问题
软件技术
吕向阳 发表于 2009/3/20 21:38:42 |
下午好好的，突然就上不了网了，打电话铁通说我们这片的服务没什么
问题，又问我几台电脑上网之类的，告诉我通常该怎么处理。
我又重设了路由器，又不怕麻烦重新拾起了拨号程序，但不管怎么做就
是无法连通。还装了中国电信的星空极速，那里面有个检测程序，查出
问题是出在MODEM那块，或者是电话线的问题。换了电话线，重启了N次
华为HG520的（路由与拨号一体），还是不行。
实在没办法了，我抽了它的电源。再插上电源，灯一个一个亮开来，没
想到的是到最后那个internet 灯也亮了，问题不会这么样就解决了
吧？我再上电脑，打开浏览器，成了。
没有理由啊！。。真是邪了
我只得又打电话10050取消了那个报障。
|
|
|
[delpih编程]FCKEditor在asp.net中被动态改路径后出问题（delphi.net)
软件技术
吕向阳 发表于 2009/3/17 13:33:24 |
Session.add('FCKeditor:UserFilesPath', abcblog/userfiles/');
FCKeditor1.BasePath := Request.ApplicationPath +
‘FCKEditor/';
这是我原先程序中动态改变'FCKeditor路径的程序，今天花了好长时间
才调试出问题出在这。
本来在WEB.CONFIG中设好就一劳永逸了，不需这么花时间的。
设置如下：
设置如下：
<appSettings>
<add key="FCKeditor:BasePath" value="/FCKeditor/"/>
<!--FCKeditor用户附件上传路径-->
<add key="FCKeditor:UserFilesPath" value ="/userfiles"/>
</appSettings>
|
|
|
[delpih编程]当你用bds2006编的WEB程序IIS下调试不通过时
软件技术
吕向阳 发表于 2009/3/17 10:57:33 |
当你用bds2006编的WEB程序IIS下调试不通过时
如出现
==============以下
Server Error in '/abcblog' Application.
--------------------------------------------------------------
------------------
Description: An unhandled exception occurred during the
execution of the current web request. Please review the stack
trace for more information about the error and where it
originated in the code.
Exception Details: Borland.Data.Common.BdpException:
Source Error:
Line 220: if not Assigned(fEcoSpace) then
Line 221: begin
Line 222: fEcoSpace := TEcoSpaceProvider.GetEcoSpace;
Line 223: rhRoot.EcoSpace := fEcoSpace;
Line 224: // Set additional root handles here and in
DoneWithEcoSpace
==============结束
这时你可通过[开始]-[运行]里输入执行
c:\WINdows\Microsoft.NET\Framework\v1.1.4322\aspnet_regiis.exe
-i
具体的原因可能是你先装了BDS2006再装的IIS
|
|
|
[delpih编程]自编ECO生成web系统的一段代码分析留档
软件技术
吕向阳 发表于 2009/3/15 20:44:46 |
下面代码解决问题：
1）asp.net对文本文件的处理方法：
有两种，先用的// sw := system.IO.&File.CreateText(afile);
这种代码保存的是utf-8，最后生成的ascx调出界面来时是乱码，用记事本将它转换为ANSI时界
面正常，于是又想办法将它能写为ansi格式。
这时用到
sw := system.IO.StreamWriter.Create(afile, false, encoding.Unicode);
写文件解决了
2）写文件时用write,换行符不好解决，这时改为writeline又正常了
3）
newstype为“文章类型”的eco类，news为"文章"的eco类，为一对多的关系
anewstype为一个newstype的实例，那么anewstype.newss就是它的全部一对多子集，且
anewstype.newss[0]就是其第一元素对象，它是news类的实例，可直接将它将news类引用，
anews := anewstype.newss[j] as news; 这句就是将它赋值给另一个对象
list1 := ehnewstype.Element.GetAsCollection;
if list1.Count > 0 then
for i := 0 to List1.Count - 1 do
begin
anewstype := list1[i].AsObject as newstype;
if anewstype.newss.Count > 0 then
begin
for j := 0 to anewstype.newss.Count - 1 do
begin
anews := anewstype.newss[j] as news; //关键在这，原来重来没这样用过，
// listbox1.Items.Add(anews.title);
if anews.sxh > 0 then
showmess(anews.title);//自定函数
end;
end;
end;
该段代码全部如下，
procedure TWebForm8.generalaspx;
var i, j: integer;
list1: ielementcollection;
list2: iobjectlist;
anewstype: newstype;
anews: news;
xid: string;
strtmp: string;
sw: streamwriter;
afile: string;
//
begin
afile := System.Web.HttpContext.Current.Server.MapPath('thetop.ascx');
// sw := system.IO.&File.CreateText(afile);
sw := system.IO.StreamWriter.Create(afile, false, encoding.Unicode);
// sw = new StreamWriter(strFilePath,false,Encoding.Unicode);
//========
sw.writeline('
Codebehind="thetop.pas" Inherits="thetop.ttop"%>');
sw.writeline('
media="all" />');
sw.writeline('
');
sw.writeline('function menuFix() {');
sw.writeline(' var sfEls = document.getElementById("nav").getElementsByTagName
("li");');
sw.writeline(' for (var i=0; i
sw.writeline(' sfEls[i].onmouseover=function() {');
sw.writeline(' this.className+=(this.className.length>0? " ": "") + "sfhover";');
sw.writeline(' }');
sw.writeline(' sfEls[i].onMouseDown=function() {');
sw.writeline(' this.className+=(this.className.length>0? " ": "") + "sfhover";');
sw.writeline(' }');
sw.writeline(' sfEls[i].onMouseUp=function() {');
sw.writeline(' this.className+=(this.className.length>0? " ": "") + "sfhover";');
sw.writeline(' }');
sw.writeline(' sfEls[i].onmouseout=function() {');
sw.writeline(' this.className=this.className.replace(new RegExp("( ?|^)sfhover
\\b"),');
sw.writeline('');
sw.writeline('"");');
sw.writeline(' }');
sw.writeline(' }');
sw.writeline('}');
sw.writeline('window.onload=menuFix;');
sw.writeline('');
sw.writeline('
');
sw.writeline('');
sw.writeline('
');
sw.writeline(' ');
sw.writeline('
');
sw.writeline('
');
sw.writeline('
回首页');
//============
strtmp := '';
list1 := ehnewstype.Element.GetAsCollection;
try
if list1.Count > 0 then
for i := 0 to List1.Count - 1 do
begin
anewstype := list1[i].AsObject as newstype;
listbox1.Items.Add('=====' + anewstype.mc);
sw.writeline('
' + ANEWSTYPE.MC + '');
sw.writeline('
');
if anewstype.newss.Count > 0 then
begin
for j := 0 to anewstype.newss.Count - 1 do
begin
anews := anewstype.newss[j] as news;
listbox1.Items.Add(anews.title);
if anews.sxh > 0 then
sw.writeline('
ANEWS.SXH.ToString.T |
|
|