您所在位置：主题：[讨论]我的上传代码如下，请问加水印的代码应该怎么加啊？谢谢~！已经注册aspjpeg组建
chedy
[专家分：0] 发布于 2007-04-05 18:04:00
----------UpLoadFile.Asp：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
BODY {FONT: 12px/25px sans-serif;margin:0}
input{FONT: 12px sans-serif;}
</style>
</head>
<%
Dim Flag
If Request("Flag") = "" Then Flag= 0 Else Flag = 1
Response.Write"<body><form action='SaveUploadFile.asp?Flag="&Flag&"' method='post' enctype='multipart/form-data' target='_self'> <input name='filedata' type='file' size='18'><input type='Submit' value='上传' name='Submit' id='Submit'></form>"
%>
</body>
</html>
---------------SaveUploadFile.asp
<!-- #include File="Inc/Upload_Cls.asp" -->
<%
dim FilePath,FacePath
FilePath = BBS94KK.Info(36)
FacePath = BBS94KK.Info(37)
Dim Upload,ReturnString,Temp,Flag
BBS94KK.CheckMake'禁止外部提交
Flag = Request.QueryString("Flag")
If Not BBS94KK.FoundUser Then BBS94KK.GoToErr(10)
Set Upload = New Upload_Cls
If BBS94KK.Info(30)="0" Then upload.ErrPrint"本论坛设置禁止上传"
If Flag="0" Then
If SESSION(CacheName& "MyGradeInfo")(14)="0" Then upload.ErrPrint"您没有上传的等级权限"
Else
If SESSION(CacheName& "MyGradeInfo")(17)="0" Then upload.ErrPrint"您没有上传头像的等级权限"
End If
Temp=BBS94KK.Execute("Select Count(*) From[KK_UpFile] where UserName='"&BBS94KK.MyName&"' And DATEDIFF('d',[UpTime],'"&BBS94KK.NowBbsTime&"')<1")(0)
If IsNull(Temp) Then Temp=SESSION(CacheName& "MyGradeInfo")(15)
If Int(Temp) => Int(SESSION(CacheName& "MyGradeInfo")(15)) Then Upload.MaxFile=0
Upload.FileTypeFlag = Replace(BBS94KK.Info(34)&"|"&BBS94KK.Info(35),"||","")
If Flag = "0" Then
Upload.SaveData FilePath,"",0
ReturnString = "<br>[UPLOAD=" & Upload.FileTypeName & "," & Upload.FileSizeKB & "," & Upload.ReWidth & "," & Upload.Width & "," & Upload.Height & "]" & Upload.FileName & "[/UPLOAD]"
BBS94KK.Execute("insert into [KK_UpFile](FileName,FileType,FileSize,UpTime,UserName) values ('"&Upload.FileName & "','" & upload.FileTypeName & "'," & upload.FileSize & ",'"& BBS94KK.NowBBSTime &"','" & BBS94KK.MyName & "')")
Response.Write("<body leftmargin=""0"" topmargin=""0"" onload=""javascript:parent.IframeID.document.body.innerHTML+='"&ReturnString&"';"">")
Else
Upload.SaveData FacePath,BBS94KK.MyID,1
ReturnString = "ViewFile.asp?Path=Face&FileName=" & Upload.FileName
Response.Write("<body leftmargin=""0"" topmargin=""0"" onload=""javascript:parent.document.getElementById('pic').src='"&ReturnString&"';parent.document.getElementById('picurl').value='"&ReturnString&"';parent.document.getElementById('PicW').value='"&Upload.Width&"';parent.document.getElementById('PicH').value='"&Upload.Height&"';"">")
End If
Upload.ErrPrint "上传成功"
Set Upload=Nothing
Set BBS94KK=Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
BODY {FONT: 12px/25px sans-serif;margin:0}
input{FONT: 12px sans-serif;}
</style>
</head>
<%
Dim Flag
If Request("Flag") = "" Then Flag= 0 Else Flag = 1
Response.Write"<body><form action='SaveUploadFile.asp?Flag="&Flag&"' method='post' enctype='multipart/form-data' target='_self'> <input name='filedata' type='file' size='18'><input type='Submit' value='上传' name='Submit' id='Submit'></form>"
%>
</body>
</html>
---------------SaveUploadFile.asp
<!-- #include File="Inc/Upload_Cls.asp" -->
<%
dim FilePath,FacePath
FilePath = BBS94KK.Info(36)
FacePath = BBS94KK.Info(37)
Dim Upload,ReturnString,Temp,Flag
BBS94KK.CheckMake'禁止外部提交
Flag = Request.QueryString("Flag")
If Not BBS94KK.FoundUser Then BBS94KK.GoToErr(10)
Set Upload = New Upload_Cls
If BBS94KK.Info(30)="0" Then upload.ErrPrint"本论坛设置禁止上传"
If Flag="0" Then
If SESSION(CacheName& "MyGradeInfo")(14)="0" Then upload.ErrPrint"您没有上传的等级权限"
Else
If SESSION(CacheName& "MyGradeInfo")(17)="0" Then upload.ErrPrint"您没有上传头像的等级权限"
End If
Temp=BBS94KK.Execute("Select Count(*) From[KK_UpFile] where UserName='"&BBS94KK.MyName&"' And DATEDIFF('d',[UpTime],'"&BBS94KK.NowBbsTime&"')<1")(0)
If IsNull(Temp) Then Temp=SESSION(CacheName& "MyGradeInfo")(15)
If Int(Temp) => Int(SESSION(CacheName& "MyGradeInfo")(15)) Then Upload.MaxFile=0
Upload.FileTypeFlag = Replace(BBS94KK.Info(34)&"|"&BBS94KK.Info(35),"||","")
If Flag = "0" Then
Upload.SaveData FilePath,"",0
ReturnString = "<br>[UPLOAD=" & Upload.FileTypeName & "," & Upload.FileSizeKB & "," & Upload.ReWidth & "," & Upload.Width & "," & Upload.Height & "]" & Upload.FileName & "[/UPLOAD]"
BBS94KK.Execute("insert into [KK_UpFile](FileName,FileType,FileSize,UpTime,UserName) values ('"&Upload.FileName & "','" & upload.FileTypeName & "'," & upload.FileSize & ",'"& BBS94KK.NowBBSTime &"','" & BBS94KK.MyName & "')")
Response.Write("<body leftmargin=""0"" topmargin=""0"" onload=""javascript:parent.IframeID.document.body.innerHTML+='"&ReturnString&"';"">")
Else
Upload.SaveData FacePath,BBS94KK.MyID,1
ReturnString = "ViewFile.asp?Path=Face&FileName=" & Upload.FileName
Response.Write("<body leftmargin=""0"" topmargin=""0"" onload=""javascript:parent.document.getElementById('pic').src='"&ReturnString&"';parent.document.getElementById('picurl').value='"&ReturnString&"';parent.document.getElementById('PicW').value='"&Upload.Width&"';parent.document.getElementById('PicH').value='"&Upload.Height&"';"">")
End If
Upload.ErrPrint "上传成功"
Set Upload=Nothing
Set BBS94KK=Nothing
%>