level 1
红尘假象丶
楼主
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_conn_STRING
Recordset1_cmd.CommandText = "SELECT * FROM files"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
body {font-size:9pt;}
input {font-size:9pt;}
文件上传
文件
<%
set rs=conn.execute("select * from title")
while not rs.eof
%>
<%
rs.movenext
wend
closedb
%>标题文件名大小(byte)操作<%=rs("title") %><%=rs("filename") %><%=rs("filesize") %>">
#">删除</a><a href="#
">将文件写入硬盘
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
2015年01月04日 04点01分
1
<!--#include file="Connections/conn.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_conn_STRING
Recordset1_cmd.CommandText = "SELECT * FROM files"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
body {font-size:9pt;}
input {font-size:9pt;}
文件上传
文件
<%
set rs=conn.execute("select * from title")
while not rs.eof
%>
<%
rs.movenext
wend
closedb
%>标题文件名大小(byte)操作<%=rs("title") %><%=rs("filename") %><%=rs("filesize") %>">
#">删除</a><a href="#
">将文件写入硬盘
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>