ASP中用ASPJPEG如何给FCKEditor上传的图片加水印
打开FCKEditor/Editor/Filemanager/Connectors/Asp/Commands.asp文件，修改FileUpload函数，如下所示：
Sub FileUpload( resourceType, currentFolder, sCommand )
Dim oUploader
Set oUploader = New NetRube_Upload
oUploader.MaxSize = 0
oUploader.Allowed = ConfigAllowedExtensions.Item( resourceType )
oUploader.Denied = ConfigDeniedExtensions.Item( resourceType )
oUploader.HtmlExtensions = ConfigHtmlExtensions
oUploader.GetData
Dim sErrorNumber
sErrorNumber = "0"
Dim sFileName, sOriginalFileName, sExtension
sFileName = ""
If oUploader.ErrNum > 0 Then
sErrorNumber = "202"
Else
' Map the virtual path to the local server path.
Dim sServerDir
sServerDir = ServerMapFolder( resourceType, currentFolder, sCommand )
Dim oFSO
Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )
if not (oFSO.FolderExists( sServerDir ) ) then
sErrorNumber = "102"
else
' Get the uploaded file name.
sFileName = oUploader.File( "NewFile" ).Name
sExtension = oUploader.File( "NewFile" ).Ext
sFileName = SanitizeFileName( sFileName )
sOriginalFileName = sFileName
Dim iCounter
iCounter = 0
Do While ( True )
Dim sFilePath
sFilePath = sServerDir & sFileName
If ( oFSO.FileExists( sFilePath ) ) Then
iCounter = iCounter + 1
sFileName = RemoveExtension( sOriginalFileName ) & "(" & iCounter & ")." & sExtension
sErrorNumber = "201"
Else
oUploader.SaveAs "NewFile", sFilePath
'****************************************************************
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
相关文档：
<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from 表”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(r ......
1.在我的电脑右键的”管理“中找到“本地用户和组”，然后单击”用户“，在右边会看到一个叫"IWAM_20020101-0024"的用户，这是iiis安装时自己创建的内置账户，点右键“设置密码”，点继续，然后输入“新密码”和“确认密码”。“IWAM_20020101-0024&rdqu ......
hzhost防asp攻击函数
Function SafeRequest(ParaName)
Dim ParaValue
ParaValue=Request(ParaName)
if IsNumeric(ParaValue) then
SafeRequest=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select
|insert |delete from|'|count(|dr ......
dim arr(36),xx,tt,tmp
for xx=1 to 36
arr(xx-1)=xx
next
for xx=1 to 5
Randomize
tt=clng((ubound(arr)-xx)*rnd())
response.write(arr(tt) & "<br>")
tmp=arr(tt)
arr(tt)=arr(ubound(arr)-xx)
arr(ubou ......
asp.net中打开新窗口的多种方法(转载)
1.Response.Redirect("XXX.aspx",true)——直接转向新的页面，原窗口被代替;
2. Response.Write("
")——打开新的页面，原窗口被代替;
4.Server.Transfer("XXX.aspx")——打开新的页面;
5.Response.Write("
......
