📄 addfile_index.asp
字号:
<!--#include file="check_admin.asp"-->
<!--#include file="conn_admin.asp" -->
<html>
<head>
<script src="ubbcode.js"></script>
<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>
<%
typeid=Request.QueryString("typeid")
if Request.QueryString("cz")="editfile" then
id=Request.QueryString("id")
sql = "SELECT * FROM index_produce where id="&id
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
name=rs("name")
typeid=rs("typeid")
lx=rs("lx")
smallimg=rs("smallimg")
bigimg=rs("bigimg")
url=rs("url")
hot=rs("hot")
txtcontent=rs("txtcontent")
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>
<link href="sys_admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border=1 cellPadding=0 cellSpacing=0 bordercolor="#666666" borderColorLight="#666666" borderColorDark=#ffffff>
<form name="form" method="post" action="savefile.asp?cz=<%=cz%>&typeid=<%=typeid%>&id=<%=id%>">
<tr bgcolor="#666666">
<td height="5" colspan="2">
<div align="center"><strong><font color="#FFFFFF">新作图标添加窗口</font></strong></div></td>
</tr>
<tr>
<td width="160" height="30" align="right">作品名称或文章标题：</td>
<td width="726"> <input type="text" name="name" maxlength="50" value="<%=name%>" size="20">
*</td>
</tr>
<tr>
<td width="160" height="30" align="right">所属分类：</td>
<td width="726">
<select name="typeid">
<%
sql = "SELECT * FROM index_type order by id desc"
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> <input name="lx" type="hidden" value="1">
* 请选择该产品的归属类型。</td>
</tr>
<tr>
<td width="160" height="30" align="right">小图片：</td>
<td width="726"> <input name="smallimg" type="text" id="smallimg" value="<%=smallimg%>" size="20" maxlength="200">
* [<a href="JavaScript:openem()">上传图片</a>] </td>
</tr>
<tr>
<td width="160" height="30" align="right">大图片：</td>
<td width="726"> <input name="bigimg" type="text" id="bigimg" value="<%=bigimg%>" size="20" maxlength="200">
* </td>
</tr>
<tr>
<td height="20" align="right" valign="top">UBB 标签：</td>
<td valign="top"><!--#include file="getUbb.asp" --></td>
</tr>
<tr>
<td height="20" align="right" valign="top">发布日期：</td>
<td valign="top"><select name="year1">
<option value="<%=year(Now())%>" selected><%=year(Now())%></option>
<%
for i=2001 to 2005
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
年
<select name="month1">
<option value="<%=month(Now())%>" selected><%=month(Now())%></option>
<%
for i=1 to 12
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
月
<select name="day1">
<option value="<%=day(Now())%>" selected><%=day(Now())%></option>
<%
for i=1 to 31
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
日 </td>
</tr>
<tr>
<td width="160" height="109" align="right" valign="top">作品介绍或文章内容：</td>
<td valign="middle" width="726">
<textarea name="txtcontent" cols="60" rows="8" wrap="VIRTUAL" id="textarea"><%content=replace(txtcontent,"<BR>",chr(13))
content=replace(txtcontent," "," ")
response.write content
%></textarea>
</td>
</tr>
<tr>
<td height="23" colspan="2" align="right" valign="top"> </td>
</tr>
<tr>
<td height="23" align="right" valign="top"> </td>
<td valign="top"><input type="submit" name="Submit2" value="确定添加" > <input type="reset" name="Submit" value="重新填写">
</td>
</tr>
<tr>
<td height="18" colspan="2" align="right" valign="top"> <div align="center">请注意，必须填写带有“*”项目，缩略图如果不填写则使用默认图片</div></td>
</tr>
</form>
</table>
<p> </p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -