Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
default.asp
Package: 图书管理系统.rar [view]
Upload User: llrg7406
Upload Date: 2007-03-02
Package Size: 654k
Code Size: 2k
Category:
Education soft system
Development Platform:
Delphi
- <%@ Language=VBScript %>
- <% Response.Expires = 0 %>
- <%
- set fs = CreateObject("scripting.filesystemobject")
- detailtxt = Request.Form("t1")
- if len(detailtxt) > 0 then
- set fscream = fs.OpenTextFile(server.MapPath("description.asp"),2,true,0)
- fscream.write detailtxt
- fscream.close
- set fscream = nothing
- end if
- %>
- <!--#include file ="../identify.asp"-->
- <HTML>
- <HEAD>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <LINK rel="stylesheet" type="text/css" href="../xcss.css">
- <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
- </HEAD>
- <BODY background=../images/zapsmbknd.gif>
- <h2>浏览软件下载</h2>
- <hr>
- <table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1">
- <tr>
- <td>
- <% if session("usertype")<=1 then %> <FORM action="default.asp" method=POST> <pre> <TEXTAREA rows=10 cols=80 id=t1 name=t1> <%
- set fscream = fs.OpenTextFile(server.MapPath("description.asp"),1,true,0)
- Do While fscream.AtEndOfstream <> True
- linetxt = fscream.readline
- Response.Write linetxt & chr(10)
- Loop
- fscream.close
- set fscream = nothing
- %>
- </TEXTAREA>
- </pre>
- <br><INPUT type="submit" value="保存" id=submit1 name=submit1>
- </FORM>
- <%
- else
- %>
- <pre>
- <!--#include file ="description.asp"-->
- </pre>
- <%
- end if
- %>
- </td>
- </tr>
- </table>
- <hr>
- <table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1">
- <tr>
- <td>
- <%
- set dir = fs.GetFolder(server.MapPath("."))
- for each file0 in dir.files
- if lcase(file0.name) <> "default.asp" and lcase(file0.name) <> "description.asp" then
- %>
- <p><a href="<%=file0.name%>"><%=file0.name%></a>
- ,文件大小为<%=file0.size%>字节。</p>
- <%
- end if
- next
- %>
- </td>
- </tr>
- </table></BODY>
- </HTML>