📄 sitestyle.asp
字号:
<!-- #include file="conn/logors.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_title%></title>
</head>
<%=styletext%>
<DIV class=menuskin id=popmenu
onmouseover="clearhidemenu();highlightmenu(event,'on')" style="Z-INDEX: 100"
onmouseout="highlightmenu(event,'off');dynamichide(event)"></DIV><!--顶部表格-->
<SCRIPT language=JavaScript src="style/main.js"></SCRIPT>
<body>
<table width="750" height="100" align="center">
<tr>
<td class=TableTitle2 height="97">
<!-- #include file="sitehead.asp" -->
</td>
</tr>
<tr>
<td height="50" valign="top" class="tablebody1">
<% navigation_flag=6 %>
<!-- #include file="func_navigationbar.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="20%" height="66" valign="top"> <!-- #include file="func_menulist.asp" --></td>
<td valign="top">
<!-- #include file="func_verify.asp" -->
<%
dim sumcount,saveserial
set rs = Server.CreateObject("ADODB.Recordset")
if request("saveflag")="1" then
dim msg
saveserial=1
msg=""
if trim(request("stylename"))="" then
msg=saveserial & "、请输入风格名称!<br>"
saveserial=saveserial+1
end if
if trim(request("styletext"))="" then
msg=msg & saveserial & "、请输入风格内容!<br>"
saveserial=saveserial+1
end if
if saveserial<=1 then
if request("id")<>"" then
sql="select * from cci_style where id=" & request("id")
rs.open sql,connobj,3,3
else
sql="select * from cci_style"
rs.open sql,connobj,3,3
rs.addnew
end if
rs("stylename")=trim(request("stylename"))
rs("styletext")=trim(request("styletext"))
rs.update
rs.close
msg="风格保存成功！" & site_title & "谢谢您为本网站发展献计献策!<br>"
end if
response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div><br>")
end if
SQL = "select * From cci_style"
Rs.Open Sql,connObj,1,1
%>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
<tr>
<td height="30" align="center"> <b><%=site_title%>风格管理</b></td>
</tr>
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF"> <table width="100%" cellpadding=1 cellspacing=1 class=tableborder1>
<tr align="center">
<td width="50" >标识</td>
<td width="50" >风格名称</td>
<td >风格文本</td>
<td width="50" >保存</td>
</tr>
<%
If (Not Rs.Eof) And (Not Rs.Bof) Then
page_size = 20
Rs.pagesize = page_size
page_count = Rs.pagecount
Page = Request.QueryString("page")
If Isnull(Page) or (Not Isnumeric(Page)) Then
aPage = 1
Else
aPage = Cint(page)
If aPage < 1 Then
aPage = 1
ElseIf aPage > Cint(page_count) Then
aPage = page_count
End If
End If
Rs.Absolutepage = aPage
Ars = Rs.Getrows(page_size)
For i = 0 To Ubound(Ars,2)
id = Ars(0,i)
stylename = Ars(1,i)
styletext = Ars(2,i)
%>
<tr bgcolor="#FFFFFF" align="center">
<form action="" method="post">
<td ><%=id%> </td>
<td ><input type=text name=stylename value=<% = trim(stylename) %>>
</td>
<td > <textarea name=styletext cols="50" rows="7"><% = trim(styletext) %></textarea>
</td>
<td><input name=save type=submit value="更新" >
<input name="saveflag" type=hidden value=1 size="15">
<input name="id" type=hidden value=<%=ars(0,i)%> size="15">
</td>
</form>
</tr>
<%
Next
%>
</table>
<%
Else
Response.Write("目前没有任何风格!")
End If
%> </td>
</tr>
</table>
<form name="theform" method="post" action="">
<table width="100%" align="center" >
<tr class=tableBorder1>
<td width="30" > </td>
<td > </td>
</tr>
<tr>
<td>风格：</td>
<td>
<input name="stylename" type="text" size="65">
<input name="saveflag" type=hidden value=1 size="15">
<input type="submit" name="Submit" value="保 存"></td>
</tr>
<tr>
<td>内容：</td>
<td><textarea name="styletext" cols="90" rows="7"></textarea></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<!-- #include file="sitefloor.asp" --> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -