1.html代码 formname是表单name,editname是文件域name,uppath是上传文件保存路径.
<input name="qtxx" type="text" id="qtxx" size="50" />
<input type="button" name="Submit22" value="上传图片" onClick="window.open('upload.asp?formname=from1&editname=qtxx&uppath=../UpLoadFile&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
2.upload.asp
<%
uppath=request("uppath")&"/"
filelx=request("filelx")
formName=request("formName")
EditName=request("EditName")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" mce_href="css.css" rel="stylesheet" type="text/css">
<mce:script language="javascript"><!--
function mysub()
{
esave.style.visibility="visible";
}
// --></mce:script>
<title>图片上传</title></head>
<body>
<form name="form1" method="post ......
<!--#include file="config.asp" -->
<!--#include file="Fun.asp" -->
<%
'数据库管理类
class Datas
'备份
public sub Bk()
Set fso=server.createobject("scripting.filesystemobject")
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
set fso=nothing
response.Write("<mce:script language=javascript><!--
alert('备份成功！');window.location.href='DataManage.asp'
// --></mce:script>")
end sub
'还原
public sub Rt()
SDPath = server.mappath(SiteDataPath)
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject("Scripting.FileSystemObject")
if Fso.FileExists(SDBPath) then
Fso.CopyFile SDBPath,SDPath
Set Fso=nothing
response.Write("<mce:script language=javascript><!--
alert('成功：你已经成功恢复数据库!');window.location.href='DataManage.asp?action=rt'
// --></mce:script>")
else
response.Write("<mce ......
<!--#include file="config.asp" -->
<!--#include file="Fun.asp" -->
<%
'数据库管理类
class Datas
'备份
public sub Bk()
Set fso=server.createobject("scripting.filesystemobject")
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
set fso=nothing
response.Write("<mce:script language=javascript><!--
alert('备份成功！');window.location.href='DataManage.asp'
// --></mce:script>")
end sub
'还原
public sub Rt()
SDPath = server.mappath(SiteDataPath)
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject("Scripting.FileSystemObject")
if Fso.FileExists(SDBPath) then
Fso.CopyFile SDBPath,SDPath
Set Fso=nothing
response.Write("<mce:script language=javascript><!--
alert('成功：你已经成功恢复数据库!');window.location.href='DataManage.asp?action=rt'
// --></mce:script>")
else
response.Write("<mce ......
载自网络。
装了2003以后，默认支持.net架构，抛弃了asp，所以刚刚安装了IIS的时候，访问是会出错的，错误提示为
Error Code 16389
超出系统资源
这是没有手动配置asp环境的缘故。
在 IIS 6.0 中，默认设置是特别严格和安全的，这样可以最大限度地减少因以前太宽松的超时和限制而造成的攻击。比如说默认配置数据库属性实施的最大 ASP 张贴大小为 204,800 个字节，并将各个字段限制为 100 KB。在 IIS 6.0 之前的版本中，没有张贴限制。
一、启用Asp支持 <BR>Windows Server 2003 默认安装，是不安装 IIS 6 的，需要另外安装。安装完 IIS 6，还需要单独开启对于 ASP 的支持。
第一步，启用Asp，进入：
控制面板 - 管理工具 -IIS(Internet 服务器)- Web服务扩展 - Active Server Pages - 允许
控制面板 - 管理工具 -IIS(Internet 服务器)- Web服务扩展 - 在服务端的包含文件 - 允许
第二步,启用父路径支持。
IIS-网站－主目录－配置－选项－启用父路径
第三步，权限分配
IIS-网站－（具体站点）－（右键）权限－Users完全控制
二、解决windows2003最大只能上载200K的限制。
先在服务里关闭iis admin service服务，找到windows\system32\inesrv\下的meta ......
ASP函数与VBSCRIPT类似，以下举一些常用的函数
Array()
函数返回一个数组
表达式 Array(list)
允许数据类型: 字符，数字均可
实例： <%
Dim myArray()
For i = 1 to 7
Redim Preserve myArray(i)
myArray(i) = WeekdayName(i)
Next
%>
返回结果: 建立了一个包含7个元素的数组myArray
myArray("Sunday","Monday", ... ... "Saturday"
CInt()
函数将一个表达式转化为数字类型
表达式 CInt(expression)
允许数据类型: 任何有效的字符均可
实例： <%
f = "234"
response.write cINT(f) + 2
%>
返回结果: 236
转化字符"234"为数字"234"，如果字符串为空，则返回0值
CreateObject()
函数建立和返回一个已注册的ACTIVEX组件的实例。
表达式 CreateObject(objName)
允许数据类型: objName 是任何一个有效、已注册的ACTIVEX组件的名字.
实例： <%
Set con = Server.CreateObject("ADODB.Connection"
%>
� ......
在asp数组定义中,可以直接定义,也可以使用Array函数定义..
先看用Array()函数定义例子:
<%
dim MyArray
MyArray=Array("天涯风云","小小程序员")
%>
<p><%=MyArray(1)%></p>
返回结果:小小程序员
直接定义:
<%
dim MyArray(2)
MyArray(0)="天涯风云"
MyArray(1)="小小程序员"
%>
<p><%=MyArray(1)%></p>
返回结果:小小程序员
二维数组的定义;
’;yyh.asp
<%
dim MyArray(2,2)
MyArray(1,1)="天涯风云"
MyArray(1,2)="小小程序员"
MyArray(2,1)="小小小程序员"
MyArray(2,2)="天天涯风云"
%>
<p><%=MyArray(2,1)%></p>
返回结果:小小小程序员
动态数组
dim arr()
redim arr(2)
redim arr(4)重新定义一个数组，以前的值都不保留
redim preserve arr(5)保留以前的值
可以使用变量传递数组长度.
abc=34
redim thearr(abc)
例子:
<%
dim myarr()
redim a(4)
a(0)="天涯风云"
a(1)="风云天涯"
a(2)="小小程序员"
a(3)="程序员小小"
redim preserve a(8) ’;保留原数组的值.
a(4)="程序� ......
要实现在asp网站上发送飞信，要求是中国移动的手机用户，并且开通移动飞信功能。
使用以下asp代码，修改参数为你的手机号及飞信密码，就可以实现在网站发免费短信功能。
fsend.asp文件源代码如下：
<%
Dim fno,fp,tofno,rurl
fno="138xxxxxxxx" '手机号
fp="xxxxxxxx" '飞信密码
tofno="137xxxxxxxx" '发送目标手机号(要求是自己的号码或飞信好友)
rurl="" '提交后转移到的目标地址(留空将不转移)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>请留下你的联系信息</title>
</head>
<body style="font-size: 10pt; font-family: 宋体">
<%if (Request("msg")="") then%>
<form method="POST" action="fsend.asp"> ......
最新文章 :