www.gusucode.com > 云枫工作室企业网站源代码第五版 1.0 > docc/admin/faqmod.asp
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<!--#include file="include.asp"-->
<%
Dim MM_FindSql '查询执行语句
Dim MM_TableName '表名
Dim MM_ReturnPath '执行成功后返回的路径
Dim MM_DatabaseStr '数据库各项
Dim MM_FormStr '表单各项
Dim MM_SqlQuery '最终执行语句
MM_TableName = "faq"
MM_FindSql = "select * from " & MM_TableName & " where sqlindex=" & request.querystring("id")
set rs = conn.Execute(MM_FindSql)
MM_ReturnPath = "faq.asp"
if Request.Form("MM_update") <> "" then
MM_DatabaseStr = "ftext1|value"
MM_FormStr = "sqltext1|',none,''"
MM_SqlKey = "sqlindex"
MM_SqlValue = Request.Form("fid")
if Request.Form("MM_update") <> "" then
MM_SqlQuery = GetUpdateSql(MM_TableName,MM_DatabaseStr,MM_FormStr,MM_SqlKey,MM_SqlValue)
'response.Write(MM_SqlQuery)
'response.End()
conn.Execute(MM_SqlQuery)
response.redirect(MM_ReturnPath)
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改新闻</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" bgcolor="#799AE1">
<table width="100%" height="100%" border="0" align="center" bgcolor="#668ED4">
<tr>
<td height="103" colspan="2" align="center"> <img src="images/toplogo.gif" height="60">
</td>
</tr>
<tr>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/menu_bk.gif">
<tr>
<td height="23" valign="bottom" background="images/menu_bk.gif"><font color="#FFFFFF">留言管理->查看</font></td>
<td valign="bottom" background="images/menu_bk.gif"><a href="<%=MM_ReturnPath%>">返回</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2">
<form ACTION="#" METHOD="POST" name="form1">
<table width="100%" height="100%" align="center" cellpadding="1" cellspacing="1" bordercolor="#ADADC9" bgcolor="#666699">
<tr bgcolor="#799AE1">
<td>联系人:</td>
<td colspan="-2"><%=rs.Fields.Item("sqlname")%> </td>
</tr>
<tr bgcolor="#799AE1">
<td>单位名称：</td>
<td colspan="-2"><%=rs.Fields.Item("sqlname1")%></td>
</tr>
<tr bgcolor="#799AE1">
<td>电话/传真:</td>
<td colspan="-2"><%=rs.Fields.Item("sqltel")%></td>
</tr>
<tr bgcolor="#799AE1">
<td>邮政编码:</td>
<td colspan="-2"> <div align="left"><%=rs.Fields.Item("sqlfax")%> </div></td>
</tr>
<tr bgcolor="#799AE1">
<td>EMAIL:</td>
<td colspan="-2"> <div align="left"><%=rs.Fields.Item("sqlemail")%> </div></td>
</tr>
<tr bgcolor="#799AE1">
<td>单位地址:</td>
<td colspan="-2"><%=rs.Fields.Item("sqladdr")%></td>
</tr>
<tr bgcolor="#799AE1">
<td>交货时间:</td>
<td width="90%" colspan="-2"><%=rs.Fields.Item("sqldate2")%> </td>
</tr>
<tr bgcolor="#799AE1">
<td>产品名称:</td>
<td width="90%" colspan="-2"><%=rs.Fields.Item("sqlchanpinmingcheng")%> </td>
</tr>
<tr bgcolor="#799AE1">
<td>规格型号:</td>
<td width="90%" colspan="-2"><%=rs.Fields.Item("sqlguigexinghao")%> </td>
</tr>
<tr bgcolor="#799AE1">
<td>数量:</td>
<td width="90%" colspan="-2"><%=rs.Fields.Item("sqlshuliang")%> </td>
</tr>
<tr bgcolor="#799AE1">
<td>公司网址:</td>
<td width="90%" colspan="-2"><%=rs.Fields.Item("sqlgongsiwangzhi")%> </td>
</tr>
<tr bgcolor="#799AE1">
<td>内容:</td>
<td colspan="-2"><%=rs.Fields.Item("sqltext")%></td>
</tr>
<tr bgcolor="#799AE1">
<td height="20" colspan="2"><div align="center"><a href="<%=MM_ReturnPath%>"><font color="#FFFFFF">返回</font></a>
</div></td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="left">注意：请正确对以上内容进行修改！</div></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
set rs = nothing
%>