admin_authorwriting.asp

来自「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置」· ASP 代码 · 共 61 行

ASP
61 行
字号 
<!-- #include file="../conn.asp" --><!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" --><%
dim authorID
authorID=CheckSql(request("ID"))
CheckSqlnum(authorID)
authorID=int(authorID)
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select author_id,author_UserName,author_Name,author_writing from author where author_ID="&authorID&""
else
	sql="select author_id,author_UserName,author_Name,author_writing from [author] where author_ID="&authorID&""
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write ("<script>alert('   操作错误!\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
%><html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {
	font-family: "隶书";
	color: #FF0000;
	font-size: 24px;
}
.style3 {color: #FF0000}
-->
</style>
</head>

<body>
<table border="1" width="100%" cellspacing="0" cellpadding="0" class="TableLine" bordercolor="#1f3566" bordercolordark="#FFFFFF">
              <tr bgcolor="#1C3566">
                <td width="8%" height=25 align=center><font color="white">ID</font></td>
                <td width="18%" height=25 align=center><font color="white">登陆名</font></td>
                <td width="18%" height=25 align=center><font color="white">笔名</font></td>
                <td width="16%" height=25 align=center><font color="white">驻站申请</font></td>
                <td width="10%" height=25 align=center><font color="white">删除</font></td>
              </tr>
              <tr>
                <td height="22" align=center><%=rs("author_id")%>　</td>
                <td align=center><%=rs("author_UserName")%></td>
                <td align=center><%=rs("author_Name")%></td>
                <td align=center><input class="button" type=button name=author value="通过驻站申请" onclick="javascript:window.open('admin_authorSave.asp?id=<%=rs("author_id")%>&act=goauthor','_self','')"></td>
                <td align=center><input class="button" type=button name=del value=删除 onclick="javascript:window.open('admin_authorDel.asp?id=<%=rs("author_id")%>','_self','')"></td>
              </tr>
              <tr>
                <td height="22" align=center valign="top">申请原由及部分作品内容</td>
                <td height="22" align=left colspan="4">　<%=rs("author_writing")%></td>
              </tr>
            </table>

<%rs.close
set rs=nothing 
conn.close
set conn=nothing
%>

admin_authorwriting.asp - 源码说明

本页面展示了「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。」中的 admin_authorwriting.asp 源码文件，采用 ASP 编程语言编写，共 61 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与MSSQL相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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