?? admin_addsysskin.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="Admin_Chkpass.asp"-->
<html>
<head>
<title>添加系統模版</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="tdbg">
<SCRIPT language=javascript>
function del_space(s)
{
for(i=0;i<s.length;++i)
{
if(s.charAt(i)!=" ")
break;
}
for(j=s.length-1;j>=0;--j)
{
if(s.charAt(j)!=" ")
break;
}
return s.substring(i,++j);
}
function VerifySubmit1()
{
topic = del_space(document.form2.sysskinname.value);
if (topic.length == 0)
{
alert("模版名稱不能為空!");
return false;
}
submits();
if (document.form2.edit.value == "")
{
alert("模版不能為空!");
return false;
}
return true;
}
function VerifySubmit2()
{
submits();
if (document.form2.edit.value == "")
{
alert("模版不能為空!");
return false;
}
return true;
}
</SCRIPT>
<%
dim action,add
action=trim(request("action"))
add=trim(request.QueryString("add"))
if add="next" then
call addskin2()
elseif add="first" then
call addskin1()
end if
if action="saveconfig1" then
call saveconfig1()
elseif action="saveconfig2" then
call saveconfig2()
end if
sub saveconfig1()
dim rs,sql
dim temp,addid
set rs=server.CreateObject("adodb.recordset")
sql="select * from sysskin "
rs.open sql,conn,1,3
rs.addnew
rs("sysskinname")=trim(request("sysskinname"))
rs("skinauthor")=trim(request("skinauthor"))
rs("skinmain")=request("skinmain")
'rs("skinshowlog")=request("skinshowlog")
rs.update
set rs=conn.execute("select max(id) from sysskin")
addid=rs(0)
rs.close
set rs=nothing
call closeconn
response.Redirect "admin_addsysskin.asp?add=next&id="&addid
end sub
sub saveconfig2()
dim rs,sql,id
id=request("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from sysskin where id="&id
rs.open sql,conn,1,3
rs("skinshowlog")=request("skinshowlog")
rs.update
rs.close
set rs=nothing
call closeconn
response.Write "添加模版成功！"
end sub
sub addskin1()%>
<form method="POST" action="admin_addsysskin.asp" id="form2" name="form2" onSubmit="return VerifySubmit1()" >
<p> </p>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border" >
<tr class="topbg">
<td height="25" align=center><strong>添加系統模版(第一步)</strong></td>
</tr>
<tr class="tdbg">
<td height="30">模版名稱：
<input name="sysskinname" type="text" id="sysskinname">
作者：
<input name="skinauthor" type="text" id="skinauthor">
<a href="admin_skin_help.asp" target="_blank"></a></td>
</tr>
<tr class="tdbg">
<td height="30"><strong>添加主模版(<a href="admin_skin_help.asp" target="_blank"><strong>模版標記幫助</strong></a>)</strong></td>
</tr>
<tr class="tdbg">
<td height="30"><input type="hidden" name="skinmain" id='edit' value="")>
<!--#include file="edit.asp"--></td>
</tr>
<tr class="tdbg">
<td height="30"><div align="center">
<INPUT type="hidden" name="action" value="saveconfig1">
<input name="cmdSave" type="submit" id="cmdSave2" value=" 保存主模版(下一步) " >
</div></td>
</tr>
</table>
</form>
<%end sub
sub addskin2()%>
<br>
<form method="POST" action="admin_addsysskin.asp" id="form2" name="form2" onSubmit="return VerifySubmit2()">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr >
<td height="25" class="topbg"><div align="center" ><strong>添加系統模版(第二步)</strong></div></td>
</tr>
<tr class="tdbg">
<td height="30"><strong>添加副模版(<a href="admin_skin_help.asp" target="_blank"><strong>模版標記幫助</strong></a>)</strong></td>
</tr>
<tr class="tdbg">
<td height="30"><INPUT type="hidden" name="skinshowlog" id='edit' value="">
<!--#include file="edit.asp"--></td>
</tr>
<tr class="tdbg">
<td height="30"><div align="center">
<INPUT type="hidden" name="action" value="saveconfig2">
<INPUT type="hidden" name="id" value="<%=request.QueryString("id")%>">
<input name="cmdSave" type="submit" id="cmdSave2" value=" 保存模版(完成) " >
</div></td>
</tr>
</table>
</form>
<%end sub%>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -