📄 adminarticle.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%dim nowplace
nowplace="article"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<%
action=my_request("action",0)
if action="save" then
call save()
end if

set rs=conn.execute ("select fkcontent,pscontent from system_setup")
fkcontent=rs(0)
pscontent=rs(1)
rs.close
set rs=nothing
%>
<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>
</head>
<SCRIPT language="javascript">
<!--
function checksubmit()
{
 if (document.form1.fkcontent.value == "")        
  {        
    window.alert("付款说明不能为空！");        
    document.form1.fkcontent.focus();        
    return (false);} 
 if (document.form1.pscontent.value == "")        
  {        
    window.alert("配送说明不能为空！");        
    document.form1.pscontent.focus();        
    return (false);} 
    }
  //--></SCRIPT>
<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=AdminArticle.asp method=post name=form1 onsubmit="return checksubmit();">
	<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="126">付款说明：</td>
		<td width="844"><textarea rows="14" name="fkcontent" cols="86"><%=Outleach(fkcontent)%></textarea></td>
	</tr>
	<tr>
		<td width="126">配送说明：</td>
		<td width="844"><textarea rows="14" name="pscontent" cols="86"><%=Outleach(pscontent)%></textarea></td>
	</tr>
	<tr>
		<td width="126">　</td>
		<td width="844"><input type=hidden name=action value=save><input type="submit" value="保存数据" name="B1"></td>
	</tr>
	</form>
</table>

</body>

</html>
<%
sub save()
fkcontent=leach(my_request("fkcontent",0))
pscontent=leach(my_request("pscontent",0))
conn.execute ("update system_setup set fkcontent='"&fkcontent&"',pscontent='"&pscontent&"'")
call wurl("数据保存成功","AdminArticle.asp")
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -