📄 editessence.asp

📁 ASP论坛2000
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!--#include file="conn.inc"-->
<!-- #include file="inc/char.inc" -->
<%
if session("masterlogin")="true" then
   dim ID
   dim BoardID
   boardID=clng(request("BoardID"))
   ID=Cstr(Request("ID"))
   dim rs
   dim sql
   set rs=server.createobject("adodb.recordset")
   sql="select * from essence where ID="&ID
   rs.open sql,conn,1,1   
%>
<html>

<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80">
<meta HTTP-EQUIV="Expires" CONTENT="0">
<link rel="stylesheet" type="text/css" href="forum.css">
<title>编辑精华区</title>
</head>

<body>
<%
   if rs.eof and rs.bof or not (boardID>0) then
      rs.close
      response.write "<center><P>该贴子的内容找不到</P></center>"
   else
      dim UserName
      dim announceid
      dim useremail
      dim Topic
      dim Url
      dim body
      dim UrlTitle
      dim PicUrl
      dim FoundError
      dim ErrMsg
      dim dateTimeStr

      announceid=rs("announceid")
      username=rs("username")
      useremail=rs("useremail")
      topic=rs("topic")
      url=rs("url")
      body=rs("body")
      urltitle=rs("urltitle")
      picurl=rs("urlpic")
      dateTimeStr=rs("dateAndTime")  
      rs.close
      call showAnnounce()
   end if
else
   response.write "如果你是版主的话，请从版主入口登录。如果你使用Opera的话，请转为使用IE或NN，Opera导致ASP的Session对象不能用。"
end if%>
</body>
</html>

<%
function showAnnounce()
      response.write "<form action='saveEditEssence.asp' method='POST' name='frmAnnounce'>"+chr(13)+chr(10)
      response.write "<input type='hidden' name='boardID' value='"+cstr(BoardID)+"'>"+chr(13)+chr(10)
      response.write "<input type='hidden' name='ID' value='"+cstr(ID)+"'>"+chr(13)+chr(10)
      response.write "<input type='hidden' name='announceID' value='"+cstr(announceID)+"'>"+chr(13)+chr(10)
      response.write "<p align='center'><strong><font color=darkblue>版主编辑精华区帖子</font></strong></p>"+chr(13)+chr(10)
      response.write "<p>姓名: "
      display username
      response.write " <input type='hidden' name='name' size='16' value='"
      display username
      response.write "' maxlength='50'><input type='hidden' name='passwd' size='10'"+chr(13)+chr(10)
      response.write "type='password' maxlength='10'><br>"+chr(13)+chr(10)
	  response.write "E-MAIL："
   	  display useremail
          response.write "<input type='hidden' name='email' size='40'  maxlength='40' value='"
	  display useremail
	  response.write "'><br>"+chr(13)+chr(10)
      response.write "主题: <br>"+chr(13)+chr(10)
	  response.write "<input name='subject' size='40' value='"
	  display topic
	  response.write "' maxlength='255'><br>"+chr(13)+chr(10)
      response.write "内容（可选）:<br>"+chr(13)+chr(10)
      response.write "<textarea cols='36' name='body' rows='10'>"+ body+"</textarea><br>"+chr(13)+chr(10)
      response.write "链接地址（可选）： <input name='url' size='40'  value='"
      display url
      response.write "'><br>"+chr(13)+chr(10)
      response.write "链接标题（可选）： <input name='urlTitle' size='40' value='"
      display urlTitle
      response.write "'><br>"+chr(13)+chr(10)
      response.write "链接图片（可选）： <input name='urlPic' size='40' value='"
      display Picurl
      response.write "'><br>"+chr(13)+chr(10)
      response.write "<input class='buttonface' type='submit' value=' 发 送 '> <input class='buttonface' type='reset' value=' 清 除 '> </p>"+chr(13)+chr(10)
      response.write "</form>"+chr(13)+chr(10)
end function
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -