📄 newfile.asp
字号:
<SCRIPT language='javascript'>window.resizeTo(650,550);window.focus()</SCRIPT>
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
if request("ProFileListid")<>"" then
objcheck.CheckUserFunction "profile","edit"
else
objcheck.CheckUserFunction "profile","add"
end if
set objcheck=nothing
'删除图片
if request("imgid")<>"" then
dim connd
dim rsd
set connd=server.CreateObject("adodb.connection")
set rsd=server.CreateObject("adodb.recordset")
connd.Open connstring
'Response.Write "delete from images where id="&request("imgid")
'Response.End
rsd.Open "delete from images where id="&request("imgid"),connd,2,3,1
set rsd=nothing
connd.Close
set connd=nothing
end if
if request("ProFileListid")<>"" then
dim connq
dim rsq
set connq=server.CreateObject("adodb.connection")
set rsq=server.CreateObject("adodb.recordset")
connq.Open connstring
rsq.Open "select * from ProFileList where ProFileListid="&request("ProFileListid"),connq,2,3,1
strSubName=rsq("SubName")
strpagename=rsq("pagename")
'strnotice=rsq("notice")
if rsq("FileText")<>"" then
strFileText=replace(rsq("FileText"),"<br>","")
strFileText=replace(strFileText," ",chr(32))
end if
rsq.Close
set rsq=nothing
connq.Close
set connq=nothing
end if
if request("SubName")<>"" then
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
if request("ProFileListid")="" then
rs.Open "select * from ProFileList",conn,2,3,1
rs.AddNew
rs("creator")=session("loginid")
rs("createdate")=now()
rs("lastmoddate")=now()
rs("lastmoduser")=session("loginid")
Rs("andId")=request("andid")
else
rs.Open "select * from ProFileList where ProFileListid="&request("ProFileListid"),conn,2,3,1
rs("lastmoduser")=session("loginid")
rs("lastmoddate")=now()
end if
rs("SubName")=request("SubName")
rs("pagename")=request("pagename")
reqFileText=replace(Request("FileText"),chr(10),"<br>")
reqFileText=replace(reqFileText,chr(32)," ")
rs("FileText")=reqFileText
rs.Update
rs.Close
dim tempProFileListid
if request("ProFileListid")="" then
rs.Open "select * from ProFileList order by ProFileListid desc",conn,1,1
tempProFileListid=rs("ProFileListid")
rs.Close
Set rs=nothing
else
tempProFileListid=request("ProFileListid")
Set rs=nothing
end if
conn.Close()
Set conn=nothing
if Request("uploadpic")=1 then
%>
<script>
window.location='uploadpic.asp?id=<%=tempProFileListid%>'
</script>
<%else%>
<script language=javascript>
//window.opener.location.reload();
window.close();
</script>
<%end if%>
<%
end if
%>
<HTML><HEAD><TITLE><%if request("ProFileListid")="" then%>新建文件<%else%>编辑文件<%end if%></TITLE>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language="javascript">
function save(){
if (form1.SubName.value==''){
alert('请输入主题!');
form1.noticesub.focus();
return;
}
if (form1.FileText.value==''){
alert('请输入内容!');
form1.FileText.focus();
return;
}
form1.submit();
}
</script>
<body topmargin="0">
<form name=form1 method="post" id=form1>
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><strong><font size="2" class=title><b>
<%if request("ProFileListid")="" then%>
新建文件
<%else%>
编辑文件
<%end if%>
</b></font></strong></td>
<td> </td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4></td>
</tr>
<tr><td><div align="center" style="cursor:hand"> <a onclick="save();"><img src="../images/button_save.gif"></a> <a onclick="window.close();"><img src="../images/button_cancel.gif"></a></DIV></td>
</tr>
</table>
<table width="100%" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="15%" nowrap bgcolor="DEDFDE"><div align="center"><font color=red>* </font>主题</div></td>
<td colspan="3" bgcolor="EFEFEF"><input name="SubName" type="text" value="<%=strSubName%>" size="50"></td>
</tr>
<tr bgcolor="EFEFEF">
<td width="15%" bgcolor="DEDFDE" ><div align="center"><font color=red>* </font>内容</div></td>
<td colspan="3" bgcolor="EFEFEF" > <textarea name="FileText" cols="60" rows="9"><%=strFileText%></textarea>
</td>
</tr>
<tr bgcolor="EFEFEF">
<td bgcolor="DEDFDE" ><div align="center">页面</div></td>
<td colspan="3" bgcolor="EFEFEF" ><input name="pagename" type="text" value="<%=strpagename%>" size="25">
Example:/dirname/pagename.asp</td>
</tr>
<tr bgcolor="EFEFEF"><td colspan="4" >
<font color="#0099CC">
图片标志说明：<br>
1."<a href="#" onClick="javascript:form1.FileText.value=form1.FileText.value+' <limages>'"><limages></a>"图片左对齐，文字围绕图片。<br>
2."<a href="#" onClick="javascript:form1.FileText.value=form1.FileText.value+' <rimages>'"><rimages></a>"图片右对齐，文字围绕图片。<br>
3."<a href="#" onClick="javascript:form1.FileText.value=form1.FileText.value+' <cimages>'"><cimages></a>"图片独占一行，文字换行在图片下方显示。</font></td>
</tr>
</table>
<input type=hidden name=ProfileListid value="<%=request("ProfileListid")%>">
</form>
<%if request("ProfileListid")<>"" then%>
<div align="left" class=titleblack>图片列表 <a href="javascript:opensubwin3('uploadimages.asp?imagetype=profile&profilelistid=<%=request("ProfileListid")%>','images','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');">new</a></div>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr bgcolor="EFEFEF">
<td height="22" align=center>序号</td>
<td height="22" align=center>编辑</td>
<td height="22" align=center>大小</td>
<td height="22" align=center>上传者</td>
<td height="22" align=center>上传日期</td>
</tr>
<%
dim connimg
dim rsimg
set connimg=server.CreateObject("adodb.connection")
connimg.Open connstring
set rsimg=server.CreateObject("adodb.recordset")
rsimg.Open "select * from images where imagetype='profile' and linkid="&request("ProfileListid"),connimg,1,1
dim i
i=1
do while not rsimg.EOF
%>
<tr bgcolor="#FFFFFF">
<td height="80" align=center><%=i%></td>
<td height="80" align=center><a href="newfile.asp?imgid=<%=rsimg("id")%>&ProfileListid=<%=request("profilelistid")%>"><img src="../images/deleteicon.gif" border="0"></a></td>
<td height="80" align=center><a href="showpic.asp?id=<%=rsimg("id")%>" target=_blank><img src="showimg.asp?id=<%=rsimg("id")%>&producttype=images" height=80 border="0"><%=rsimg("imagesize")%></a></td>
<td height="80" align=center><%=rsimg("creator")%></td>
<td height="80" align=center><%=rsimg("createdate")%></td>
</tr>
<%
i=i+1
rsimg.MoveNext
loop
rsimg.Close
set rsimg=nothing
connimg.Close
set connimg=nothing
%>
</table>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -