📄 addfile.asp
字号:
<%
if session("admin")<>"on" then
Response.Redirect"login.asp"
end if
%>
<!--#include file="config.asp"-->
<%
Function GetTypeNameByID(type_id)
Dim typeName
sql="select name from type where id="&type_id
set RsN=Server.CreateObject("ADODB.RecordSet")
RsN.Open sql,conn,1,1
if not (RsN.bof and RsN.eof) then
typeName=RsN("name")
GetTypeNameByID=typeName
end if
RsN.close
Set RsN=Nothing
End Function
%>
<html>
<head>
<script language="Javascript">
function openScript(url, width, height)
{
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
function openem()
{
openScript('upload.asp',350,200);
}
</script>
<%
typen=Request("typeid")
if Request.QueryString("cz")="editfile" then
id=Request.QueryString("id")
sql = "SELECT * FROM desktop where id="&id
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
name=rs("name")
dx=rs("dx")
typeid=rs("typeid")
lx=rs("lx")
minipic=rs("minipic")
pic=rs("pic")
url=rs("url")
hot=rs("hot")
jj=rs("jj")
rs.close
Set rs=Nothing
function html_1(fString)
fString = Replace(fString, "</P><P>" , CHR(10) & CHR(10))
fString = Replace(fString, "<BR>" , CHR(10))
html_1= fString
end function
title="编辑文件"
cz="editfile"
else
title="添加文件"
cz="addfile"
end if
%>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="INDEX.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="top.asp" -->
<table width="778" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<form name="form" method="post" action="savefile.asp?cz=<%=cz%>&typeid=<%=typeid%>&id=<%=id%>">
<tr>
<td height="15" colspan="2" align="right" class="sxz"><table width="766" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td>管理选项：<a href="admin.asp">管理首页</a> | <a href="addfile.asp">添加文件</a> | <a href="adminfile.asp">管理文件</a> | <a href="setup.asp">系统设置</a> | <a href="ly.asp">留言管理</a> |
<a href="modifypsw.ASP">修改密码</a> | <a href="loginout.asp">退出管理</a></td>
</tr>
</table></td>
</tr>
<tr>
<td class="sxz" width="238" align="right">文件名称：</td>
<td class="bk" width="520">
<input type="text" name="name" class="an" maxlength="10" value="<%=name%>" size="20">
* </td>
</tr>
<tr>
<td class="zx" width="238" align="right">所属分类：</td>
<td class="xzy" width="520">
<select name="typeid" class="cp">
<%if Request.QueryString("cz")="editfile" then%>
<option value=<%=typeid%>><%=GetTypeNameByID(typeid)%></option>
<%end if%>
<%
sql = "SELECT * FROM type"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
if rs.eof and rs.bof then
Response.Write"<option>还没有任何分类，请先添加类别，在管理首页中添加</option>"
else
do while not rs.eof
Response.Write"<option value='"&rs("id")&"'"
if typen=rs("id") then Response.Write" selected"
Response.Write">"&rs("name")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
Set conn=Nothing
%>
</select>
* </td>
</tr>
<tr>
<td class="zx" width="238" align="right">文件类型：</td>
<td class="xzy" width="520">
<select name="lx" class="cp">
<%
if lx=1 then
Response.Write"<option value='1' selected>Flash</option><option value='0'>照片</option>"
else
Response.Write"<option value='1'>Flash</option><option value='0' selected>照片</option>"
end if
%>
</select>
* </td>
</tr>
<tr>
<td class="zx" width="238" align="right">小图片：</td>
<td class="xzy" width="520">
<input type="text" name="minipic" class="cp-en" maxlength="200" value="<%=minipic%>" size="20">
*
[<a href="JavaScript:openem()">上传图片</a>] </td>
</tr>
<tr>
<td class="zx" width="238" align="right">大图片或FLASH文件：</td>
<td class="xzy" width="520">
<input type="text" name="pic" class="cp-en" maxlength="200" value="<%=pic%>" size="20">
*
[<a href="ftp/index.asp" target="_blank">上传图片</a>] 注：ftp/加上上传的目录名</td>
</tr>
<tr>
<td class="zx" valign="top" width="238" align="right">文件简介：</td>
<td width="520" height="100" valign="top" class="xzy">
<textarea name="jj" class="an" cols="40" rows="5"><%=jj%></textarea>
</td>
</tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td height="1" bgcolor="#FFFFFF">
<input type="submit" name="Submit2" value="确定" class="an" OnCLick="JavaScript:checkfile()"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="bk"> 请注意，必须填写带有“*”项目，缩略图如果不填写则使用默认图片</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="bk"><div align="center">上传文件时,注意如片不要过大,建议先进行处理。</div></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="41" valign="top"><table width="766" height="29" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td width="766" height="35" align="center"><%=cy%> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -