📄 uploadmdb.asp
字号:
<%username=Request.Cookies("username")%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../css/style1.css">
</head>
<body>
<!--#include file="../conn.asp"-->
<%
dim strFileName
dim ks
strFileName=Request.QueryString("strFileName")
bytex=Request.QueryString("bytex")
Function GetFileName(ByVal strFile) '文件格式函数
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, ".")+1)
Else
GetFileName = ""
End If
End function
Ks=GetFileName(strFileName) '取文件名格式
Set rs = Server.CreateObject("ADODB.Recordset") '存入数据库
sql="select top 1 * from 附件 "
rs.open sql,conn,1,3
rs.AddNew
rs("所属用户")=username
rs("附件名称")=strFileName
rs("附件类型")=ks
rs("附件大小")=bytex
rs("上传时间")=date()+time()
rs.Update
rs.Close
set rs=nothing
Response.Write "ゅン:"& strFileName &" ["& cstr(bytex) &" Bytes]⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -