📄 user_upfile.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%'option explicit%>
<!--#include file="User_conn.asp"-->
<%
'****************************************************
' Software name:Kesion CMS 4.5
' Email: service@kesion.com . QQ:111394,9537636
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KSCls
Set KSCls = New User_Upfile
KSCls.Kesion()
Set KSCls = Nothing
Class User_Upfile
' Private KS,KSUser,ChannelID,BasicType
'Private Sub Class_Initialize()
' Set KS=New PublicCls
' Set KSUser=New UserCls
'End Sub
' Private Sub Class_Terminate()
' Call CloseConn()
' Set KS=Nothing
' Set KSUser=Nothing
'End Sub
Public Sub Kesion()
With Response
Dim UserHS
Set UserHS = New Art_User
IF Cbool(UserHS.UserLoginChecked)=false then
Response.Write "<script>top.location.href ='login.asp' ;</script>"
Response.end
End If
.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
.Write "<html>"
.Write "<head>"
.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
.Write "<title>上传文件</title>"
.Write "<link rel=""stylesheet"" href=""images/css.css"">"
.Write "<style type=""text/css"">" & vbCrLf
.Write "<!--" & vbCrLf
.Write "body {"
.Write " margin-left: 0px; " & vbCrLf
.Write " margin-top: 0px;" & vbCrLf
.Write "}" & vbCrLf
.Write "-->" & vbCrLf
.Write "</style></head>"
.Write "<body class=tdbg oncontextmenu=""return false;"">"
ChannelID=ChkClng(S("ChannelID"))
'If ChannelID<5000 Then
'BasicType=C_S(ChannelID,6)
'Else
BasicType=ChannelID
'End If
If S("Type")="Field" Then
Call User_Field_UpForm
Else
Select Case BasicType
Case 9999 '用户头像
Call User_face_UpForm
End Select
End If
End With
End Sub
'用户头像
Sub User_Face_UpForm()
With Response
.Write " <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
.Write " <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""UpFileSave.asp"">"
.Write " <tr class='tdbg'>"
.Write " <td valign=""top"">"
.Write " <input type=""file"" accept=""html"" size=""30"" name=""File1"" style=""border-style: solid; border-width: 1"">"
.Write " <input type=""submit"" id=""BtnSubmit"" class=""button"" name=""Submit"" value=""开始上传"">"
.Write " <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
.Write " <input type=""hidden"" name=""AutoReName"" value=""4"">"
'.Write " <input type=""checkbox"" name=""DefaultUrl"" value=""1"" checked>"
'.Write " 缩略图"
'.Write " <input name=""AddWaterFlag"" type=""checkbox"" id=""AddWaterFlag"" value=""1"" checked>"
.Write "</td>"
.Write " </tr>"
.Write " </form>"
.Write " </table>"
End With
End Sub
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -