other.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 101 行

ASP
101 行
字号 
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<%
flag=my_request("flag",0)
if flag="save" then
call save()
end if
sql="select web_name,web_url,aboutus,shfw,zfsm,pssm from system_setup where id=1"
set rs=conn.execute (sql)
web_name=rs("web_name")
web_url=rs("web_url")
aboutus=rs("aboutus")
shfw=rs("shfw")
zfsm=rs("zfsm")
pssm=rs("pssm")
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">
<LINK href="style.css" rel=stylesheet type=text/css>
<title>其他参数设置</title>
</head>

<body>
<form action="other.asp" method="post">
<div align="center">
	<table border="0" width="760" id="table1" cellspacing="1">
		<tr>
			<td height="20" colspan="2" bgcolor="#EFEFEF">
			<p align="center">网站参数设置</td>
		</tr>
		<tr>
			<td height="20" width="196" align="right">网站名称：</td>
			<td height="20" width="557">
			<input type="text" name="web_name" size="60" value="<%=web_name%>" maxlength="20"></td>
		</tr>
		<tr>
			<td height="20" width="196" align="right">网站地址：</td>
			<td height="20" width="557">
			<input type="text" name="web_url" size="60" value="<%=web_url%>" maxlength="20"><input type="hidden" name="flag" value="save"></td>
		</tr>
		<tr>
			<td height="20" width="196" align="right">关于我们：</td>
			<td height="20" width="557">
			<textarea rows="6" name="aboutus" cols="54"><%=aboutus%></textarea></td>
		</tr>
		<tr>
			<td height="20" width="196" align="right">售后服务：</td>
			<td height="20" width="557">
			<textarea rows="6" name="shfw" cols="54"><%=shfw%></textarea></td>
		</tr>
		<tr>
			<td height="20" width="196" align="right">支付说明：</td>
			<td height="20" width="557">
			<textarea rows="6" name="zfsm" cols="54"><%=zfsm%></textarea></td>
		</tr>
		<tr>
			<td height="20" width="196" align="right">配送说明：</td>
			<td height="20" width="557">
			<textarea rows="6" name="pssm" cols="54"><%=pssm%></textarea></td>
		</tr>
		<tr>
			<td height="20" width="753" align="right" colspan="2">
			<p align="center"><input type="submit" value="提 交" name="B1"></td>
		</tr>
	</table>
</div>
</form>
</body>

</html>
<%
sub save()
web_name=my_request("web_name",0)
web_url=my_request("web_url",0)
aboutus=my_request("aboutus",0)
shfw=my_request("shfw",0)
zfsm=my_request("zfsm",0)
pssm=my_request("pssm",0)
sql="select web_name,web_url,aboutus,shfw,zfsm,pssm from system_setup where id=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("web_name")=web_name
rs("web_url")=web_url
rs("aboutus")=aboutus
rs("shfw")=shfw
rs("zfsm")=zfsm
rs("pssm")=pssm
rs.update
rs.close
set rs=nothing
response.redirect "other.asp"
end sub
conn.close
set conn=nothing
%>

other.asp - 源码说明

本页面展示了「非常有商业价值的软件」中的 other.asp 源码文件，采用 ASP 编程语言编写，共 101 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与商相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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