savesign.asp

功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.

<!--#include file="check.asp"-->
<!--#include file="connect.asp"-->
<%
if  Request.ServerVariables("Request_Method")="POST" then          
set rs=server.createobject("adodb.recordset")
sql="select signaturename,signaturetype from userlist where uid='"&session("signid")&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs("signaturename")=request("no")
rs("signaturetype")=request("type")
rs.update
rs.close
session("signid")=""
response.redirect "signature.asp"
response.end
end if
end if

 LocalFile="savesign.asp"
 UpFile="upsign.asp"
  HttpUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") 
  HttpUrl=Left(HttpUrl,Len(HttpUrl)-Len(LocalFile))
UpUrl=HttpUrl & UpFile
session("signid")=request("uid")
temppath=request("id")
temppath=replace(temppath,"\","\\")
%>
<form name="form" method="post" action="">
  <object classid="clsid:8C9AA244-AC33-47F9-8968-CC114654A6EC" codebase="web.ocx" id="web">
  </object> 
  <script language=javascript>
    var result=false                       
	  var UpUrl="<%=UpUrl%>"               //保存附件文件url路径
	  var MaxSize="<%=session("MaxSize")%>"   //限制上传附件文件的大小 
	  FileName="<%=request("no")%>"
	  FilePath="<%=temppath%>"
    result=form.web.upload(UpUrl,FileName,FilePath,MaxSize)  //向服务器上传附件
	
	  if (!result)
       {
   alert("对不起，你选择的文件不存在！")
      document.location="signature.asp"                 //上传附件失败，返回上传签名管理
        }
   else
   {
   document.form.submit();
    }
</script>
  <input type="hidden" name="no" value="<%=request("no")%>">
  <input type="hidden" name="type" value="<%=request("type")%>">
</form>