Subscribe: 振华博客
http://zhenhua.org/feed.asp?cat=15
Added By: Feedage Forager Feedage Grade B rated
Language: English
Tags:
createobject adodb  createobject  input style  input  request  server createobject  server mappath  server  set  style  text input  text 
Rate this Feed
Rate this feedRate this feedRate this feedRate this feedRate this feed
Rate this feed 1 starRate this feed 2 starRate this feed 3 starRate this feed 4 starRate this feed 5 star

Comments (0)

Feed Details and Statistics Feed Statistics
Preview: 振华博客

ZhenHua 's blog



zenhua zhenhua 振华博客,振华's blog



Published: Mon, 23 Apr 2018 10:36:05 +0800

Copyright: Copyright 2018, ZhenHua 's blog
 



asp生成写入文本文件

Sun, 14 Dec 2008 04:12:12 +0800

log.

1.html

姓名:
手机号码:
内容:


1.asp
<%
dim xingming
dim shouji
dim liuyan
xingming=request("xingming")
shouji=request("shouji")
liuyan=request("liuyan")



Fckeditor 保存出现乱码解决方法(asp版)

Sun, 04 Nov 2007 07:11:52 +0800

在asp文件第一行加入<%@ codepage=936%> 即可解决



FCKeditor 2.3 上传出现乱码解决方法(asp版)

Sun, 04 Nov 2007 07:08:40 +0800

1) 快速上传,即"上传"标签页,上传成功之后弹出的对话框为乱码,(文件名重复时会弹出这个对话框)

(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)加上一段


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

步骤2.

找到\FCKeditor\edito



PHP4.3.* bugs

Sat, 10 Jun 2006 14:40:50 +0800

using PHP configured as FastCGI or CGI better than ISAPI?

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



用php作wap开发时遇到的问题及类

Sun, 04 Jun 2006 17:40:31 +0800

1.文件格式
首先要遇到的问题肯定是文件格式,在作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更安全.即



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)



防注入代码

Wed, 08 Sep 2004 18:42:50 +0800

ASP:
作者: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



ASP目录直读

Wed, 08 Sep 2004 18:41:54 +0800

<%
'const_domain_name为域名最后不要加斜杠
const const_domain_name="http://localhost"
%>


<%
'------------------------------------------------显示当前目录下的子目录和文件
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



ASP页面自动转换为Word文档

Wed, 08 Sep 2004 18:39:40 +0800

方法1:
<% 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



ASP入门

Wed, 08 Sep 2004 18:36:43 +0800

<1>格式
<%
语句
......
%>
<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