|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。access|数据|数据库|下载senddate.asp(发送界面)
<formmethod="post"ENCTYPE="multipart/form-data"name="form3"action="senddateindb.asp">
<inputtype="hidden"name="userdept"value="<%=firstdept%>">
<inputtype="hidden"name="username"value="一切人">
<tdalign="center"><b>发给:</b></td><td><inputtype="text"name="sendto"size=60value="<%=sendto%>"onfocus="document.form3.title.focus();"><fontcolor=red>*</font></td>
</tr>
<tr>
<tdalign="center"><b>题目:</b></td>
<td><inputtype=textname="title"size=60><fontcolor=red>*</font></td>
</tr>
<tr>
<tdalign="center"><b>内容:</b></td>
<td><textareaname="content"rows="9"cols="60"></textarea></td>
</tr>
<tr>
<tdalign="center"><b>附件:</b></td>
<td><inputtype="file"name="file1"size=35>(不克不及凌驾100K)</td>
</tr>
<tr>
<tdalign=centercolspan=2>
<inputtype="submit"name="submit"value="发送">
</td>
</form>
*************************************************************************
senddateindb.asp(把要发送的文件保留到数据库)
<!--#INCLUDEFILE="asp/fupload.inc"-->
<!--#includefile="asp/opendb.asp"-->
<!--#includefile="asp/sqlstr.asp"-->
<!--#includefile="asp/checked.asp"-->
<!--#includefile="asp/bgsub.asp"-->
<%
OnErrorResumeNext
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
ifoabusyusername=""thenresponse.redirect"default.asp"
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"content="MicrosoftFrontPage4.0">
<metaname="ProgId"content="FrontPage.Editor.Document">
<linkrel="stylesheet"href="CSS/css.css">
<title>企业办理体系</title>
</head>
<bodybgcolor="#eeeeee"topmargin="5"leftmargin="5">
<%
callbghead()
%>
<center>
<table>
<tr>
<td>
<b>公函发送</b>
</td>
<formaction="senddate.asp"method="post"name="form1">
<td>
<inputtype="submit"value="前往">
</td>
</form>
</tr>
</table>
</center>
<%
callbgmid()
%>
<%
ifRequest.ServerVariables("REQUEST_METHOD")="POST"Then
---------------------------
response.write"入手下手发送<br>"
---------------------------
DimFields
UploadSizeLimit=100000
SetFields=GetUpload()
dimField
ForEachFieldInFields.Items
ifField.name="title"thentitle=BinaryToString(Field.value)
ifField.name="content"thencontent=BinaryToString(Field.value)
ifField.name="sendto"thensendto=BinaryToString(Field.value)
ifField.name="file1"then
filename=field.FileName
fileContentType=field.ContentType
filevalue=field.value
endif
next
--------------------------------------
response.write"title="&title&"<br>"
response.write"content="&con</p>无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|