filelist.asp

网站源码

<%@ codepage = 936 LCID = 2052 %>
<% if Session("exemple_status") <> "login" then response.redirect "login.asp" %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->

<%
response.buffer = true

'get action
a=request.form("a")

'get fields from form

x_id = Request.Form("x_id")
x_title = Request.Form("x_title")
x_content = Request.Form("content")
x_type = Request.Form("x_type")

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

Select Case a
	Case "A": ' Add

		' Open record
		strsql = "SELECT * FROM [gqxx_info] WHERE 0 = 1"

		set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strsql, conn, 1, 2

		rs.AddNew

		
tmpFld = Trim(x_title)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("title") = tmpFld
tmpFld = Trim(x_content)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("content") = tmpFld
tmpFld = x_type
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("type") = cInt(tmpFld)

		rs.Update
		rs.Close
		Set rs = Nothing
		conn.Close
		Set conn = Nothing
		Response.Clear
		Response.Redirect "gqxx_infolist.asp"
End Select
%>


<!--#include file="header.asp"-->

<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699"><tr>
                <td>&nbsp; </td>
              </tr></table>
            <table width="625" height="426" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td valign="top"><br>
                  <table width="523" height="360" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td valign="top"> <p><a href="../../../coosel/Login.asp" target="_blank"><img src="images/main_banner03.gif" width="176" height="65" border="0"></a></p>
                        <p>你的用户名是:<%= file_id %> 密码:<%= file_pwd %><br>
                          <br>
                          &nbsp;&nbsp;它可以为你做到:</p>
					    <p>&nbsp;&nbsp;<strong><font color="#FF0000">1</font></strong>.上传文件,可以同时上传多个文件,<br>
                          <br>
                          &nbsp;&nbsp;<strong><font color="#FF0000">2</font></strong>.完整的文件管理,可以<font color="#FF0000">在线</font>编缉,删除,改名,等常规操作<br>
                          <br>
                          &nbsp;&nbsp;<strong><font color="#FF0000">3</font></strong>.只要登录网站便可下载文件,无论你身处何方<br>
                          <br>
                          &nbsp;<font color="#FF0000">&nbsp;<strong>4</strong></font>.采用图形介面,有详尽的文件列表,及目录列表,所有操作用<font color="#FF0000">鼠标便可完成</font><br>
                          <br>
                          &nbsp;&nbsp;<strong><font color="#FF0000">5</font></strong>.有效的安全机制,<font color="#FF0000">系统采用独立的帐号</font>,所有人操作都在管理员的许可范围内<br>
                          <br>
                          &nbsp;</p>
                        <table width="148" height="32" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr>
                            <td>[<a href="../../../coosel/Login.asp" target="_blank">进入在线文件管理系统</a>]</td>
                          </tr>
                        </table>
                        <p>&nbsp; </p>
                        
                      </td>
                    </tr>
                  </table> </td>
  </tr>
</table>


<!--#include file="footer.asp"-->