📄 adminsave2.asp

📁 这是一个文章管理的网页源程序
💻 ASP
字号:
<%
Function fen1(a)
Set Conn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("mymdb/news.mdb")
Conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs0=Server.CreateObject("ADODB.RecordSet")
rs0.open "Select * From aclass where classID="&a,Conn,2,3
if not rs0.eof then
	fen1=rs0("score")
else
	fen1=0
end if
rs0.close
set rs0=nothing
end Function

fen=0
  	if session("admin")="" then
  		response.redirect "admin.asp"
  	end if
%>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
	dim rs,sql
	dim title
	dim content
	dim articleid
	dim classid,Nclassid
	dim Nkey
	dim writer
	dim writefrom
	dim errmsg
	dim founderr
	dim yc
    dim htmlable
	dim daifa
	
    dim review
    dim cue
	founerr=false
	if trim(request.form("txttitle"))="" then
  		founderr=true
  		errmsg="<li>文章名不能为空</li>"
	end if
	if trim(request.form("txtcontent"))="" then
  		founderr=true
  		errmsg=errmsg+"<li>文章内容不能为空</li>"
	end if
	if trim(request.form("key"))="" then
  		founderr=true
  		errmsg=errmsg+"<li>请输入文章关键字</li>"
	end if
    if trim(request.form("yc"))="请选择来源" then
  		founderr=true
  		errmsg=errmsg+"<li>请输入文章来源</li>"
	end if
	if trim(request.form("Nclassid"))="" then
  		founderr=true
  		errmsg=errmsg+"<li>文章栏目不能为空</li>"
	end if
	if trim(request.form("daifa"))="审核结果" then
  		founderr=true
  		errmsg=errmsg+"<li>您没有做出审核判断</li>"
	end if
	
	if founderr=false then
        review=request.form("review")
		title=request.form("txttitle")
		Nkey=htmlencode(trim(request.form("key")))
		classid=request.form("classid")
		Nclassid=request.form("Nclassid")
		yc=request.form("yc")
		daifa=request.form("daifa")
        htmlable=request.form("htmlable")
        cue=request.form("cue")
        
			content=request.form("txtcontent")
		
	articleid=request("articleid")
	set rs=server.createobject("adodb.recordset")
	sql="select * from article where articleid="&articleid
	rs.open sql,conn,1,3
	rs("review")=review
	rs("title")=title
	rs("content")=content
	rs("Nclassid")=Nclassid
	rs("classid")=classid
	rs("Nkey")=Nkey
	rs("daifa")=daifa
    if daifa=1 then
    rs("cue")=""
    else
	rs("cue")=cue
    end if
    rs("htmlable")=htmlable
	if request.form("writer")<>"" then
		ytname=request.form("writer")	
		rs("writer")=trim(ytname)
	end if
	if request.form("writefrom")<>"" then
		rs("writefrom")=trim(request.form("writefrom"))
	end if
	rs.update
if daifa=1 then
%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("mymdb/news.mdb")
Conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rsyt=Server.CreateObject("ADODB.RecordSet")
%>
<%
rsyt.open "Select * from admin where username='" & ytname & "'",Conn,2,3
if not rsyt.eof then
	rsyt("score")=rsyt("score")+fen1(classid)
end if
rsyt.update
rsyt.close
end if
dim r
	Set r= Server.CreateObject("ADODB.Recordset")
    sql="select * from admin where username='"&request.form("writer")&"'"
    r.open sql,conn,3,2
    r("wzs")=r("wzs")+1
    r.update
	
    r.close
	set r=nothing
	rs.close
	set rs=nothing
    conn.close
    set conn=nothing
%>
<html>

<head>
<title></title>
<link rel="stylesheet" type="text/css" href="style.css">

</head>

<body>
<div align="center"><center>
<br><br>
<table width="50%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
  <tr>
    <td width="100%" bgcolor="#999999" height="20"><p align="center"><font color="#FFFFFF"><b>
修改审核文章成功</b><%=rs("daifa")%></font></td>
  </tr>
  <tr>
    <td width="100%"><p align="left"><br>
        文章序号为：<%response.write ""&articleid&""%><br>
        文章标题为：<%response.write title%></p>
    您可以进行其他操作 　<a href="logout.asp" target="_blank">返回首页</a><%=ytname%></td>

  </tr>
</table>
</center></div>
<%
else
 response.write "由于以下的原因不能保存数据："
 response.write errmsg
end if
%>

</body>
</html>
⌨️ 快捷键说明

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