<![CDATA[振华博客]]> http://www.zhenhua.org/ UTF-8 LBS v2.0.313 Tue, 07 Sep 2010 20:02:46 +0800 60 <![CDATA[asp生成写入文本文件]]> ]]> Sun, 14 Dec 2008 04:12:12 +0800
1.html
<form name="LoginForm" method="post" action="1.asp" style="margin-top:0px;">
姓名: <input name="xingming" type="text" class="input" style="width:100px;">
手机号码: <input name="shouji" type="text" class="input" style="width:100px;">
内容: <input name="liuyan" type="text" class="input" style="width:150px;">
<input type="image" src="images/submit.gif" >
</form>

1.asp
<%
dim xingming
dim shouji
dim liuyan
xingming=request("xingming")
shouji=request("shouji")
liuyan=request("liuyan")
]]> <![CDATA[Fckeditor 保存出现乱码解决方法(asp版)]]> ]]> Sun, 04 Nov 2007 07:11:52 +0800 <![CDATA[FCKeditor 2.3 上传出现乱码解决方法(asp版)]]> ]]> Sun, 04 Nov 2007 07:08:40 +0800
(2) 快速上传后返回到"链接"页后,"链接"页的输入框为乱码

(3) 文件"浏览"上传之后弹出的对话框为乱码.(同1)

(4) 文件"浏览"上传保存的文件名为乱码

解决方法:

步骤1.

将 \Fckeditor\editor\filemanager\browser\default\frmupload.html 文件的编码(原先为ANSI编码)改为UTF-8保存即可,

打开该文件 >> 另存为 >> 点“保存”按钮右边的下拉箭头 >> 编码保存... >> 替换原文件 >> Unicode（UTF-8有签名）

或者

在\FCKeditor\editor\filemanager\browser\default\frmupload.html)加上一段
<meta http-equiv="content-type" content="text/html; charset=UTF-8">

该方法解决了(4)所述的乱码现象.

步骤2.

找到\FCKeditor\edito]]> <![CDATA[PHP4.3.* bugs]]> ]]> Sat, 10 Jun 2006 14:40:50 +0800
HTTP 服务器在处理 ISAPI 应用程序 '
php4ts!php_request_startup + 0x1B5
php4isapi + 0x44D0
' 时，遇到了无法处理的异常错误。

http://bugs.php.net/bug.php?id=24534
http://bugs.php.net/bug.php?id=25657]]> <![CDATA[用php作wap开发时遇到的问题及类]]> ]]> Sun, 04 Jun 2006 17:40:31 +0800 首先要遇到的问题肯定是文件格式,在作web开发时,大家都是用的html或xhtml,到了wap开发时,就得用wml了.什么是wml?大家可以去查更详细的资料,我这里只是略微的提到.在我看来wml类似于xml,有非常严格的格式,在作wap页面时,都得用wml来作为显示.

wml的语法非常简单,在用php作动态输出时,一定要发送一个头信息,标明本页面是wml,而不是别的什么*ml.

Code:
--------------------------------------------------------------------------------
header("Content-type: text/vnd.wap.wml; charset=\"gb2312\"");
--------------------------------------------------------------------------------


这里用的字符集是gb2312,在移动的平台上是没有任何问题的,但在联通的平台上就不行了,一定得用utf-8,为了更通用,还是用utf-8更安全.即
]]> <![CDATA[asp图片目录直读]]> ]]> Thu, 09 Sep 2004 00:40:39 +0800 <%@language=vbscript codepage=936 %>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++Wrance的图片系统目录直读版1.0+++++++++++++++++++++++
'++++++演示：http://www.cnecg.com/pic.asp++++++++++++++++++
'++++++此为免费程序，您可以任意修改，欢迎发表建议++++++++++
'++++++Email:cnecg@yahoo.com.cn,QQ:74028+++++++++++++++++++

'以下为修改内容
Const UploadDir="/uptupian" '存放文件的目录
Const MaxPerPage=30 '每页显示数量
const title="+++＿＿Wrance的图片系统目录直读版＿ " '标题

'检查组件是否已经安装
Function IsObjInstalled(strClassString) ]]> <![CDATA[防注入代码]]> ]]> Wed, 08 Sep 2004 18:42:50 +0800 作者：Neeao
<%
'--------数据库连接部分--------------
dim dbkillSql,killSqlconn,connkillSql
dbkillSql="Sql.asp"
'On Error Resume Next
Set killSqlconn = Server.CreateObject("ADODB.Connection")
connkillSql="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbkillSql)
killSqlconn.Open connkillSql
If Err Then
 err.Clear
 Set killSqlconn = Nothing
 Response.Write "数据库连接出错，请检查连接字串。"
 Response.End
End If

'--------定义部份------------------
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql
]]> <![CDATA[ASP目录直读]]> ]]> Wed, 08 Sep 2004 18:41:54 +0800 <%
'const_domain_name为域名最后不要加斜杠
const const_domain_name="http://localhost"
%>
<style>
b,img,a{font-size:9pt;line-height:150%;text-decoration:none;color:#0000cc;}
span{font-size:12pt;}
</style>

<%
'------------------------------------------------显示当前目录下的子目录和文件
sub list
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath("."))
set fs=f.SubFolders
Set fc =f.Files

For Each fss in fs]]> <![CDATA[ASP页面自动转换为Word文档]]> ]]> Wed, 08 Sep 2004 18:39:40 +0800
<% Response.ContentType = "application/msword" %>


方法2：
<%
Response.Buffer=true
取得要下载的文件，如果不为空。就下载
dim url,trueurl
url="下载文件路径和下载文件名"
fname=Request("filename")
if fname<>"" then
trueurlurl=server.MapPath("/") &url
end if
set objFso=server.CreateObject("scripting.filesystemobject")
set fn=objFso.GetFile(trueurl)
flsize=fn.size
flname=fn.name
set fn=nothing
set objFso=nothing

set objStream=server.CreateObject("adodb.stream")
objStream.Open
objStream.Type=1
objStream.LoadFromFile url
]]> <![CDATA[ASP入门]]> ]]> Wed, 08 Sep 2004 18:36:43 +0800 <%
语句
......
%>
<2>定义变量dim语句
<%
dim a,b
a=10
b="ok!"
%>
注意：定义的变量可以是数值型，也可以是字符或者其他类型的
<3>简单的控制流程语句
1. If 条件1 then
语句1
elseif 条件2 then
语句2
else
语句3
endif
2.while 条件
语句
wend
3.for count=1 to n step m
语句1
exit for
语句2
next
二.ASP数据库简单*作教程
<1>.数据库连接(用来单独编制连接文件conn.asp)
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath
("\bbs\db1\user.mdb")
%>
(用来连接bbs\db1\目录下的user.mdb数据库)
<2>显示数据库记录
原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录
如果是从头到尾：用循环并判断指针是否到末 使用: not rs.eof
]]>