📄 admintitle.asp
字号:
<%dim nowplace
nowplace="style"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网页关键字设置</title>
<link href=AdminStyle.css rel=stylesheet type=text/css>
<script src="edit.js" type="text/javascript"></script>
</head>
<%
set rs=conn.execute ("select Stitle,Sdescription,Skeywords from system_setup where id=1")
Stitle=rs(0)
Sdescription=rs(1)
Skeywords=rs(2)
rs.close
set rs=nothing
action=my_request("action",0)
if action="save" then
call save()
end if
%>
<body>
<table border="0" width="100%" id="table1" cellpadding="4" style="border:1px solid #183789; border-collapse: collapse; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" cellspacing="1">
<form action=Admintitle.asp method=post name=form1>
<tr>
<td width="100%" colspan="2" background="Image/admin_bg_1.gif" height="25">
<font color="#FFFFFF"><b>网页关键字设置：</b></font></td>
</tr>
<tr>
<td width="161">网页标题(title)：</td>
<td width="809">
<input type="text" name="Stitle" size="58" value="<%=Stitle%>"></td>
</tr>
<tr>
<td width="161">网页描述(description)：</td>
<td width="809">
<textarea rows="3" name="Sdescription" cols="49"><%=Sdescription%></textarea></td>
</tr>
<tr>
<td width="161">网页关键字(keywords)：</td>
<td width="809">
<textarea rows="3" name="Skeywords" cols="49"><%=Skeywords%></textarea><input type="hidden" name="action" value="save"></td>
</tr>
<tr>
<td width="161">在代码中的例子：</td>
<td width="809"><title><font color="#FF0000">网页标题</font></title><br>
<meta content=<font color="#FF0000">网页描述</font> name="description"><br>
<meta content=<font color="#FF0000">网页关键字</font> name="keywords"></td>
</tr>
<tr>
<td width="161">为什么要填写这些内容：</td>
<td width="809">提高搜索引擎的搜索次数，和关键字排名。对网站推广有好处。</td>
</tr>
<tr>
<td width="161"> </td>
<td width="809"><input type="submit" value="保存数据" name="B1"></td>
</tr></form>
</table>
</body>
</html>
<%
sub save()
Stitle=my_request("Stitle",0)
Sdescription=my_request("Sdescription",0)
Skeywords=my_request("Skeywords",0)
conn.execute ("update system_setup set Stitle='"&Stitle&"',Sdescription='"&Sdescription&"',Skeywords='"&Skeywords&"' where id=1")
response.redirect "Admintitle.asp"
end sub
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -