📄 admin_type.asp
字号:
Set rsSubject = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage Where rType="&rsType("rID")&" Order By rID"
rsSubject.Open Sql,ConnY,3,3
While Not rsSubject.Eof
Response.Write " ID:"&rsSubject("rID")&",<a href='Admin_Type.asp?Action=EditSubject&T="&rsType("rID")&"&S="&rsSubject("rID")&"' onFocus='this.blur()'>"&rsSubject("rName")&"</a> <a href='javascript:RURS("&rsSubject("rID")&");' onFocus='this.blur()'>删除版面</a><br>"
rsSubject.MoveNext
Wend
rsSubject.Close
Set rsSubject=Nothing
rsType.MoveNext
Wend
rsType.Close
Set rsType=Nothing
End If
If Request("Action")="EditOrder" Then
Set rsType = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tTypeManage Where rID="&Request("I")
rsType.Open Sql,ConnY,3,3
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
<tr><form name="form1" method="post" action="Admin_Type.asp?Action=EditOrderNow">
<td> 名称:
<input type="text" name="Name" size="20" class="textfiled" value="<%=rsType("rTypeName")%>">
序号:
<input type="text" name="ID" size="3" class="textfiled" value="<%=rsType("rID")%>">
<input type="submit" name="Submit" value="修改" class="button" onFocus="this.blur()">
<input type="hidden" name="O" value="<%=rsType("rID")%>">
</td>
</form>
</tr>
</table>
<%
End If
If Request("Action")="AddType" Then
Set rsType = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tTypeManage Order By rID desc"
rsType.Open Sql,ConnY,3,3
If Not rsType.Eof Then
X=rsType("rID")
Else
X=0
End If
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
<tr><form name="form1" method="post" action="Admin_Type.asp?Action=AddTypeNow">
<td> 名称:
<input type="text" name="Name" size="20" class="textfiled">
序号:
<input type="text" name="ID" size="3" class="textfiled" value="<%=X+1%>">
<input type="submit" name="Submit" value="添加" class="button" onFocus="this.blur()">
</td></form>
</tr>
</table>
<%
rsType.Close
Set rsType=Nothing
End If
If Request("Action")="AddSubject" Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
<form name="form1" method="post" action="Admin_Type.asp?Action=AddSubjectNow">
<tr>
<td width="41%"> 序号:(注意不要与已有版面重复)</td>
<td width="59%">
<input type="text" name="ID" class="textfiled" size="4">
</td>
</tr>
<tr>
<td width="41%"> 版面名称:</td>
<td width="59%">
<input type="text" name="Name" class="textfiled">
</td>
</tr>
<tr>
<td width="41%" height="19"> 所属专栏:</td>
<td width="59%" height="19">
<select name="TypeID" class="textfiled">
<%
Set rsType = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tTypeManage"
rsType.Open Sql,ConnY,3,3
While Not rsType.Eof
Response.Write "<option value='"&rsType("rID")&"'"
If rsType("rID")=Cint(Request("I")) Then Response.Write " selected"
Response.Write ">"&rsType("rTypeName")&"</option>"
rsType.MoveNext
Wend
rsType.Close
Set rsType=Nothing
%>
</select>
</td>
</tr>
<tr>
<td width="41%"> 版面介绍:</td>
<td width="59%">
<input type="text" name="Intro" class="textfiled" size="40">
</td>
</tr>
<tr>
<td width="41%" height="35"> </td>
<td width="59%" height="35">
<input type="submit" name="Submit" value="添加" class="button" onFocus="this.blur()">
</td>
</tr>
</form>
</table>
<%
End If
If Request("Action")="EditSubject" Then
Set rsSubject = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage Where rType="&Request("T")&" And rID="&Request("S")
rsSubject.Open Sql,ConnY,3,3
ColorList=Split(rsSubject("rColor"),"|")
BroadList=Split(rsSubject("rBroad"),"|")
LockUserList=Split(rsSubject("rLockUser"),"*")
CssList=Split(rsSubject("rCss"),"|")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
<form name="form1" method="post" action="Admin_Type.asp?Action=EditSubjectNow"><tr>
<td width="41%"> 是否锁定:</td>
<td width="59%">
<input type="checkbox" name="IsLock" onFocus="this.blur()" <%If rsSubject("rIsLock")=True Then Response.Write "checked"%> value="True">
锁定</td>
</tr>
<tr>
<td width="41%"> 序号:(注意不要与已有版面重复)</td>
<td width="59%">
<input type="text" name="ID" class="textfiled" size="4" value="<%=rsSubject("rID")%>">
<input type="hidden" name="S" value="<%=Request("S")%>">
<input type="hidden" name="T" value="<%=Request("T")%>">
</td>
</tr>
<tr>
<td width="41%"> 版面名称:</td>
<td width="59%">
<input type="text" name="Name" class="textfiled" size="20" value="<%=rsSubject("rName")%>">
</td>
</tr>
<tr>
<td width="41%" height="19"> 所属专栏:</td>
<td width="59%" height="19">
<select name="TypeID" class="textfiled">
<%
Set rsType = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tTypeManage"
rsType.Open Sql,ConnY,3,3
While Not rsType.Eof
Response.Write "<option value='"&rsType("rID")&"'"
If rsType("rID")=Cint(Request("T")) Then Response.Write " selected"
Response.Write ">"&rsType("rTypeName")&"</option>"
rsType.MoveNext
Wend
rsType.Close
Set rsType=Nothing
%>
</select>
</td>
</tr>
<tr>
<td width="41%"> 版面介绍:</td>
<td width="59%">
<input type="text" name="Intro" class="textfiled" size="45" value="<%=rsSubject("rIntroduction")%>">
</td>
</tr>
<tr>
<td width="41%"> 版面个性图标</td>
<td width="59%">
<input type="text" name="Pic" class="textfiled" size="40" value="<%=rsSubject("rPic")%>">
</td>
</tr>
<tr>
<td width="41%"> 广播一次所需财产</td>
<td width="59%">
<input type="text" name="Broad0" class="textfiled" size="4" value="<%=BroadList(0)%>">
吨</td>
</tr>
<tr>
<td width="41%"> 广播一次持续时间</td>
<td width="59%">
<select name="Broad1" class="Textfiled">
<option value="0.5" <%If BroadList(1)=0.5 Then Response.Write "selected"%>>24小时</option>
<option value="1" <%If BroadList(1)=1 Then Response.Write "selected"%>>48小时</option>
<option value="1.5" <%If BroadList(1)=1.5 Then Response.Write "selected"%>>72小时</option>
<option value="2" <%If BroadList(1)=2 Then Response.Write "selected"%>>96小时</option>
</select>
</td>
</tr>
<tr>
<td width="41%"> 表格背景色</td>
<td width="59%">
<input type="text" name="Color0" class="Textfiled" size="8" value="<%=ColorList(0)%>">
</td>
</tr>
<tr>
<td width="41%"> 表格边框色</td>
<td width="59%">
<input type="text" name="Color1" class="Textfiled" size="8" value="<%=ColorList(1)%>">
</td>
</tr>
<tr>
<td width="41%"> 表格标题色</td>
<td width="59%">
<input type="text" name="Color2" class="Textfiled" size="8" value="<%=ColorList(2)%>">
</td>
</tr>
<tr>
<td width="41%"> 表格交替色</td>
<td width="59%">
<input type="text" name="Color3" class="Textfiled" size="8" value="<%=ColorList(3)%>">
</td>
</tr>
<tr>
<td width="41%"> 表格交替色二</td>
<td width="59%">
<input type="text" name="Color4" class="Textfiled" size="8" value="<%=ColorList(4)%>">
</td>
</tr>
<tr>
<td width="41%"> 广播区色调</td>
<td width="59%">
<input type="text" name="Color5" class="Textfiled" size="8" value="<%=ColorList(5)%>">
</td>
</tr>
<tr>
<td width="41%"> 在线区色调</td>
<td width="59%">
<input type="text" name="Color6" class="Textfiled" size="8" value="<%=ColorList(6)%>">
</td>
</tr>
<tr>
<td width="41%"> 特殊字符颜色</td>
<td width="59%">
<input type="text" name="Color7" class="Textfiled" size="8" value="<%=ColorList(7)%>">
</td>
</tr>
<tr>
<td width="41%"> 导航当前页字体颜色颜色</td>
<td width="59%">
<input type="text" name="Color8" class="Textfiled" size="8" value="<%=ColorList(8)%>">
</td>
</tr>
<tr>
<td width="41%"> 特殊操作时间字体颜色</td>
<td width="59%">
<input type="text" name="Color9" class="Textfiled" size="8" value="<%=ColorList(9)%>">
</td>
</tr>
<tr>
<td width="41%"> 热门浏览次数字体颜色</td>
<td width="59%">
<input type="text" name="Color10" class="Textfiled" size="8" value="<%=ColorList(10)%>">
</td>
</tr>
<tr>
<td width="41%"> 无功能链接字体颜色</td>
<td width="59%">
<input type="text" name="Color11" class="Textfiled" size="8" value="<%=ColorList(11)%>">
</td>
</tr>
<tr>
<td width="41%"> 特殊人物字体颜色</td>
<td width="59%">
<input type="text" name="Color12" class="Textfiled" size="8" value="<%=ColorList(12)%>">
</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -