📄 admin_type.asp
字号:
<td width="41%"> 页面背景色及边框颜色</td>
<td width="59%"> 背景:
<input type="text" class="Textfiled" size="8" value="<%=CssList(0)%>" name="Css0">
边框:
<input type="text" class="Textfiled" size="8" value="<%=CssList(4)%>" name="Css4">
</td>
</tr>
<tr>
<td width="41%"> 页面字体,尺寸及颜色</td>
<td width="59%">字体:
<input type="text" class="Textfiled" size="8" value="<%=CssList(3)%>" name="Css3">
尺寸:
<input type="text" class="Textfiled" size="8" value="<%=CssList(1)%>" name="Css1">
颜色:
<input type="text" class="Textfiled" size="8" value="<%=CssList(2)%>" name="Css2">
</td>
</tr>
<tr>
<td width="41%"> 链接字体及尺寸</td>
<td width="59%">字体:
<input type="text" class="Textfiled" size="8" value="<%=CssList(5)%>" name="Css5">
尺寸:
<input type="text" class="Textfiled" size="8" value="<%=CssList(6)%>" name="Css6">
</td>
</tr>
<tr>
<td width="41%"> 链接Hover属性</td>
<td width="59%">颜色:
<input type="text" class="Textfiled" size="8" value="<%=CssList(7)%>" name="Css7">
下划:
<input type="text" class="Textfiled" size="8" value="<%=CssList(8)%>" name="Css8">
</td>
</tr>
<tr>
<td width="41%"> 链接Link属性</td>
<td width="59%">颜色:
<input type="text" class="Textfiled" size="8" value="<%=CssList(9)%>" name="Css9">
下划:
<input type="text" class="Textfiled" size="8" value="<%=CssList(10)%>" name="Css10">
</td>
</tr>
<tr>
<td width="41%"> 链接Visited属性</td>
<td width="59%">颜色:
<input type="text" class="Textfiled" size="8" value="<%=CssList(11)%>" name="Css11">
下划:
<input type="text" class="Textfiled" size="8" value="<%=CssList(12)%>" name="Css12">
</td>
</tr>
<tr>
<td width="41%"> 链接Active属性</td>
<td width="59%">颜色:
<input type="text" class="Textfiled" size="8" value="<%=CssList(13)%>" name="Css13">
下划:
<input type="text" class="Textfiled" size="8" value="<%=CssList(14)%>" name="Css14">
</td>
</tr>
<tr>
<td width="41%"> 文本框一属性</td>
<td width="59%">高度:
<input type="text" class="Textfiled" size="8" value="<%=CssList(15)%>" name="Css15">
背景:
<input type="text" class="Textfiled" size="8" value="<%=CssList(16)%>" name="Css16">
边框:
<input type="text" class="Textfiled" size="8" value="<%=CssList(17)%>" name="Css17">
<br>
字体:
<input type="text" class="Textfiled" size="8" value="<%=CssList(19)%>" name="Css19">
尺寸:
<input type="text" class="Textfiled" size="8" value="<%=CssList(20)%>" name="Css20">
颜色:
<input type="text" class="Textfiled" size="8" value="<%=CssList(18)%>" name="Css18">
</td>
</tr>
<tr>
<td width="41%"> 文本框二属性</td>
<td width="59%">高度:
<input type="text" class="Textfiled" size="8" value="<%=CssList(21)%>" name="Css21">
背景:
<input type="text" class="Textfiled" size="8" value="<%=CssList(22)%>" name="Css22">
边框:
<input type="text" class="Textfiled" size="8" value="<%=CssList(23)%>" name="Css23">
<br>
字体:
<input type="text" class="Textfiled" size="8" value="<%=CssList(25)%>" name="Css25">
尺寸:
<input type="text" class="Textfiled" size="8" value="<%=CssList(26)%>" name="Css26">
颜色:
<input type="text" class="Textfiled" size="8" value="<%=CssList(24)%>" name="Css24">
</td>
</tr>
<tr>
<td width="41%"> 按钮一属性</td>
<td width="59%">高度:
<input type="text" class="Textfiled" size="8" value="<%=CssList(27)%>" name="Css27">
背景:
<input type="text" class="Textfiled" size="8" value="<%=CssList(28)%>" name="Css28">
边框:
<input type="text" class="Textfiled" size="8" value="<%=CssList(29)%>" name="Css29">
<br>
字体:
<input type="text" class="Textfiled" size="8" value="<%=CssList(31)%>" name="Css31">
尺寸:
<input type="text" class="Textfiled" size="8" value="<%=CssList(32)%>" name="Css32">
颜色:
<input type="text" class="Textfiled" size="8" value="<%=CssList(30)%>" name="Css30">
</td>
</tr>
<tr>
<td width="41%"> 按钮二属性</td>
<td width="59%">高度:
<input type="text" class="Textfiled" size="8" value="<%=CssList(33)%>" name="Css33">
背景:
<input type="text" class="Textfiled" size="8" value="<%=CssList(34)%>" name="Css34">
边框:
<input type="text" class="Textfiled" size="8" value="<%=CssList(35)%>" name="Css35">
<br>
字体:
<input type="text" class="Textfiled" size="8" value="<%=CssList(37)%>" name="Css37">
尺寸:
<input type="text" class="Textfiled" size="8" value="<%=CssList(38)%>" name="Css38">
颜色:
<input type="text" class="Textfiled" size="8" value="<%=CssList(36)%>" name="Css36">
</td>
</tr>
<tr>
<td width="41%"> 锁定指定用户在本版的发言权</td>
<td width="59%">
<input type="text" name="LockUser0" class="Textfiled" size="30" value="<%=LockUserList(0)%>">
</td>
</tr>
<tr>
<td width="41%"> 锁定指定用户在本版的浏览权</td>
<td width="59%">
<input type="text" name="LockUser1" class="Textfiled" size="30" value="<%=LockUserList(1)%>">
</td>
</tr>
<tr>
<td width="41%"> 锁定指定用户的投票权</td>
<td width="59%">
<input type="text" name="LockUser2" class="Textfiled" size="30" value="<%=LockUserList(2)%>">
</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")="Unit" Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
<form name="form1" method="post" action="Admin_Type.asp?Action=UnitNow">
<tr>
<td width="24%"> 源版面</td>
<td width="76%">
<select name="From" class="textfiled">
<%
Set rsSubject = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage"
rsSubject.Open Sql,ConnY,3,3
While Not rsSubject.Eof
Response.Write "<option value='"&rsSubject("rID")&"|"&rsSubject("rType")&"'>"&rsSubject("rName")&"</option>"
rsSubject.MoveNext
Wend
rsSubject.Close
Set rsSubject=Nothing
%>
</select>
(不保留) </td>
</tr>
<tr>
<td width="24%"> 目的版面</td>
<td width="76%">
<select name="To" class="textfiled">
<%
Set rsSubject = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage"
rsSubject.Open Sql,ConnY,3,3
While Not rsSubject.Eof
Response.Write "<option value='"&rsSubject("rID")&"|"&rsSubject("rType")&"'>"&rsSubject("rName")&"</option>"
rsSubject.MoveNext
Wend
rsSubject.Close
Set rsSubject=Nothing
%>
</select>
</td>
</tr>
<tr>
<td width="24%" height="35"> </td>
<td width="76%" height="35">
<input type="submit" name="Submit" value="合并" class="button" onFocus="this.blur()">
</td>
</tr>
</form>
</table>
<%
End If
If Request("Action")="Move" Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
<form name="form1" method="post" action="Admin_Type.asp?Action=MoveNow">
<tr>
<td width="24%"> 源版面</td>
<td width="76%">
<select name="FromSubject" class="textfiled">
<%
Set rsSubject = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage"
rsSubject.Open Sql,ConnY,3,3
While Not rsSubject.Eof
Response.Write "<option value='"&rsSubject("rID")&"|"&rsSubject("rType")&"'>"&rsSubject("rName")&"</option>"
rsSubject.MoveNext
Wend
rsSubject.Close
Set rsSubject=Nothing
%>
</select>
</td>
</tr>
<tr>
<td width="24%"> 目的专栏</td>
<td width="76%">
<select name="ToType" 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")&"'>"&rsType("rTypeName")&"</option>"
rsType.MoveNext
Wend
rsType.Close
Set rsType=Nothing
%>
</select>
</td>
</tr>
<tr>
<td width="24%" height="35"> </td>
<td width="76%" height="35">
<input type="submit" name="Submit" value="转移" class="button" onFocus="this.blur()">
</td>
</tr>
</form>
</table>
<%
End If
%>
</td>
</tr>
</table>
<div align="center"><br>
</div>
<div align="center"></div>
</td>
</tr>
</table>
<!--#include file="Inc/Bottom.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -