关于L-BLOG(UTF-8)版本造成其他程序乱码的解释
[ 2006-05-11 11:31:19 | 作者: admin ]
http://www.loveyuki.com/blogview.asp?logID=665&cateID=3
tianyang:我不太喜欢整合这个玩意,设计思路不同的东西搞整合比重新开发还困难啊.
关于L-BLOG(UTF-8)版本造成其他程序乱码的解释
这个问题不是L-BLOG的问题，也不是浏览器的问题，更加不是服务器的问题！而是其他程序代码不规范的问题！
大家可以看看
http://www.moyuhome.com/
和
http://www.moyuhome.com/blog
我已经解决了这个问题，现在我说出解决的大概办法，大家具体程序就具体修改吧！
在程序的最开始增加
...
阅读全文…
tianyang:我不太喜欢整合这个玩意,设计思路不同的东西搞整合比重新开发还困难啊.
关于L-BLOG(UTF-8)版本造成其他程序乱码的解释
这个问题不是L-BLOG的问题，也不是浏览器的问题，更加不是服务器的问题！而是其他程序代码不规范的问题！
大家可以看看
http://www.moyuhome.com/
和
http://www.moyuhome.com/blog
我已经解决了这个问题，现在我说出解决的大概办法，大家具体程序就具体修改吧！
在程序的最开始增加
...
阅读全文…
Response.Buffer 的使用价值 [推荐]
[ 2006-04-26 23:09:17 | 作者: admin ]
当Buffer为True的时候,asp会将这个程序解释完毕后一起发送到客户端,当Buffer为False的时候,asp会边解析边发送数据.
实例
阅读全文…
实例
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<%
Response.Charset = "utf-8" ;
Response.Buffer = "False";
%>
<%
Response.Write("开始执行<br />");
for(var i = 1; i < 100; i++){
for(var u = 1 ;u <1000;u++){
}
Response.Write(i+"<br />");
}
Response.Write("结束");
%>
[code/]
会在浏览器中动态的从1输出到100,有趣
如果将Response.Buffer
...<%
Response.Charset = "utf-8" ;
Response.Buffer = "False";
%>
<%
Response.Write("开始执行<br />");
for(var i = 1; i < 100; i++){
for(var u = 1 ;u <1000;u++){
}
Response.Write(i+"<br />");
}
Response.Write("结束");
%>
[code/]
会在浏览器中动态的从1输出到100,有趣
如果将Response.Buffer
阅读全文…
utf-8编码技巧 url编码问题
[ 2006-04-26 22:57:36 | 作者: admin ]
在用utf-8编码的页面中,通过ASP内置对象Server.URLEncode()编码后的URL不能正确的找到文件,解决方法是用JavaScript的escape()函数进行编码
编码比较程序
Asp版
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>无标题文档</title>
</head>
<body>
<%
Response.Write("server对象输出<br />");
...
阅读全文…
编码比较程序
Asp版
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>无标题文档</title>
</head>
<body>
<%
Response.Write("server对象输出<br />");
...
阅读全文…
怎么控制输出文章标题中的中英文长度
[ 2005-12-15 11:02:23 | 作者: admin ]
怎么控制输出文章标题中的中英文，给大家铁出来
函数在下面，是方法是：
strvalue("复请Email通知如果不填写则取注册Email",26)
这里26是指26个英文字母，也就是13个汉字
function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
end function
function strvalue(str,lennum)
dim p_num
dim i
...
阅读全文…
函数在下面，是方法是：
strvalue("复请Email通知如果不填写则取注册Email",26)
这里26是指26个英文字母，也就是13个汉字
function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
end function
function strvalue(str,lennum)
dim p_num
dim i
...
阅读全文…
ado 连接上的错误
[ 2005-12-15 10:38:04 | 作者: admin ]
在较旧版本的odbc驱动程序下，使用第（1）种连接字符串，没有出现该错误。升级odbc驱动程序后（升级了sql server
7.0的sp2），出现“无法指出的错误”（第一次访问不出错，刷新后出错），错误位置指向connection.open connstr一
行，将连接字符串改为第（2）种，也就是把它的所有参数全部写出来，错误消失。
（1） connstr="DBQ="+server.mappath("usecar.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
（2） connstr="DBQ="+server.mappath("usecar.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS ...
阅读全文…
7.0的sp2），出现“无法指出的错误”（第一次访问不出错，刷新后出错），错误位置指向connection.open connstr一
行，将连接字符串改为第（2）种，也就是把它的所有参数全部写出来，错误消失。
（1） connstr="DBQ="+server.mappath("usecar.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
（2） connstr="DBQ="+server.mappath("usecar.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS ...
阅读全文…
查看ASP Session 变量的小工具
[ 2005-11-12 15:25:05 | 作者: admin ]
转自:动态网制作指南 www.knowsky.com
<%@ LANGUAGE="VBSCRIPT" %>
<%
'#####################################################
'Function:
' List server Session variable & Application variable
'Author: Hardy He
'Date: 2003-3-12 23:30
'Memo: Be care for diffrent virtul path show diffrent Session
'#####################################################
%>
<table border="2" cellspacing="1" ...
阅读全文…
<%@ LANGUAGE="VBSCRIPT" %>
<%
'#####################################################
'Function:
' List server Session variable & Application variable
'Author: Hardy He
'Date: 2003-3-12 23:30
'Memo: Be care for diffrent virtul path show diffrent Session
'#####################################################
%>
<table border="2" cellspacing="1" ...
阅读全文…
关于 upload_5xSoft
[ 2005-11-12 15:03:44 | 作者: admin ]
使用了upload_5xSoft无组件就不能用request.form来获得表单控件的值,只用用
upload_5xSoft提供的upload.form来获取表单控件的值.
upload_5xSoft提供的upload.form来获取表单控件的值.
asp中的urlDeCode函数
[ 2005-06-08 01:12:16 | 作者: admin ]
<%
Function URLDecode(enStr)
dim deStr
dim c,i,v
deStr=""
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if v<128 then
deStr=deStr&chr(v)
i=i+2
else
if isvalidhex(mid(enstr,i,3)) then
if isvalidhex(mid(enstr,i+3,3)) then
v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
deStr=deStr&chr(v)
i=i+5
else
...
阅读全文…
Function URLDecode(enStr)
dim deStr
dim c,i,v
deStr=""
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if v<128 then
deStr=deStr&chr(v)
i=i+2
else
if isvalidhex(mid(enstr,i,3)) then
if isvalidhex(mid(enstr,i+3,3)) then
v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
deStr=deStr&chr(v)
i=i+5
else
...
阅读全文…
