photo_addfile.asp
来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 154 行
ASP
154 行
<!--#include file=conn.asp -->
<%
IF not(Session("KEY")="super" or Session("KEY")="input") THEN
response.redirect "login.asp"
response.end
END IF
%>
<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('photo_upload.asp',350,200);
}
</script>
<%
if Request.QueryString("cz")="editfile" then
id=Request.QueryString("id")
sql = "SELECT * FROM photo_show 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=html_1(rs("jj"))
rs.close
Set rs=Nothing
function html_1(fString)
fString =fString
html_1= fString
end function
title="编辑文件"
cz="editfile"
else
title="添加文件"
cz="addfile"
end if
%>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
a { font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none; color: <%=fontcolor%>; text-decoration: none}
a:hover { font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none; color: <%=fontcolor%>; text-decoration: underline}
td { font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none; color: <%=fontcolor%>}
br { font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none; color: <%=fontcolor%>}
.bk { font-size: 9pt; border: 1px <%=xcolor%> solid}
body { font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none}
.an { font-family: "宋体"; font-size: 9pt; background-color: <%=bgcolor%>; border: 1px <%=xcolor%> solid; color: <%=fontcolor%>}
.xzy { border: <%=xcolor%> solid; border-width: 0px 1px 1px}
.zx { border: <%=xcolor%> solid; border-width: 0px 0px 1px 1px}
.sxz { border: <%=xcolor%> solid; border-width: 1px 0px 1px 1px}
.s { border: <%=xcolor%>; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.y { border: <%=xcolor%>; border-style: solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 0px}
.font { font-family: "Arial Black"; font-size: 14pt; color: <%=fontcolor%>}
.x { border: <%=xcolor%>; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
.z { border: <%=xcolor%>; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 1px}
.sx { border: <%=xcolor%>; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
-->
</style>
</head>
<br>
<table width="500" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
<form name="form" method="post" action="photo_savefile.asp?cz=<%=cz%>&id=<%=id%>">
<tr align="center" bgcolor="abb8d6">
<td height="30" colspan="2"><strong>影 集 上 传</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="115" align="right" class="sxz">文件名称：</td>
<td width="565" class="bk"> <input type="text" name="name" class="an" maxlength="50" value="<%=name%>">
<input type="submit" name="Submit2" value="添加" class="an">
* </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="115" align="right" class="zx">文件大小：</td>
<td width="565" class="xzy"> <input type="text" name="dx" class="an" maxlength="50" value="<%=dx%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="115" align="center" class="zx">所属分类：</td>
<td width="565" class="xzy"> <select name="typeid">
<%
sql = "SELECT * FROM photo_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 typeid=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 bgcolor="#FFFFFF">
<td width="115" align="center" class="zx">文件类型：</td>
<td width="565" class="xzy"> <select name="lx">
<%
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 bgcolor="#FFFFFF">
<td width="115" align="center" class="zx">缩略图：</td>
<td width="565" class="xzy"> <input type="text" name="minipic" class="an" maxlength="200" value="<%=minipic%>">
[<a href="JavaScript:openem()">上传图片</a>] </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="115" align="center" class="zx">放大图或FLASH文件：</td>
<td width="565" class="xzy"> <input type="text" name="pic" class="an" maxlength="200" value="<%=pic%>">
* </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="115" align="center" class="zx">供下载文件：</td>
<td width="565" class="xzy"> <input type="text" name="url" class="an" maxlength="200" value="<%=url%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="115" align="center" valign="top" class="zx">文件简介：</td>
<td width="565" valign="top" class="xzy"> <textarea name="jj" class="an" cols="40" rows="2"><%=jj%></textarea>
</td>
</tr>
<tr valign="middle" bgcolor="abb8d6">
<td height="30" colspan="2" align="center" class="zx"><font color="#FFFFFF">请注意，必须填写带有“*”项目，缩略图如果不填写则使用默认图片</font></td>
</tr>
</form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?