upload.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<!-- #include file="../login/check.asp" -->
<!--#include file="../../inc/conn.asp" -->
<!--#include file="../../inc/function.asp" -->
<!--#include file="../upload/upload_class.asp"-->


<%
Server.ScriptTimeOut = 999999
Dim sType, sStyleName
Dim sAllowExt, nAllowSize, sUploadDir

%>
<%
Dim up
Set up=new LBUpload
up.eWebList()
If Request.QueryString("action")="ewebsave" Then
	up.eWebAdd()
End if
Set up=Nothing
call connclose

%>
<% 
' 输出客户端脚本
Sub OutScript(str)
	Response.Write "<script language=javascript>" & str & ";history.back()</script>"
End Sub
%>