www.gusucode.com > 云枫工作室企业网站源代码第五版 1.0 > docc/admin/gsjj.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 = "gsjj"
	if request.QueryString("style") <> "" then
		MM_FindSql = "select * from " & MM_TableName & " where sqlindex=" & request.QueryString("style")
	else
		MM_FindSql = "select * from " & MM_TableName
	end if
	set rs = conn.Execute(MM_FindSql)
	
	MM_ReturnPath = "gsjj.asp"

	if Request.Form("MM_update") <> "" then
		MM_DatabaseStr  = "ftext|value|fetext|value"
    	MM_FormStr = "sqltext|',none,''|sqletext|',none,''"
		MM_SqlKey = "sqlindex"
		MM_SqlValue = Request.Form("MM_recordId")
		if Request.Form("MM_update") <> "" then
			MM_SqlQuery = GetUpdateSql(MM_TableName,MM_DatabaseStr,MM_FormStr,MM_SqlKey,MM_SqlValue)
			conn.Execute(MM_SqlQuery)
			response.write("<script>history.go(-1);</script>")
		end if
	end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>单独项管理</title>
<style type="text/css">
<!--
.unnamed1 {
	font-family: "Times New Roman", "Times", "serif";
	font-size: 12px;
	font-style: normal;
	line-height: 15px;
	border: thin none;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>

<body topmargin="0" bgcolor="#799AE1">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="23" valign="middle" bgcolor="#668ED4"> 
      <div align="center"><img src="images/toplogo.gif"></div>
      </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                
      
    <td width="91%" height="23" valign="bottom" background="images/menu_bk.gif">&nbsp;</td>
                
    <td width="9%" valign="bottom" background="images/menu_bk.gif"><a href="<%=MM_ReturnPath%>"><font size="2" color="#FFFFFF"><b>返回</b></font></a></td>
              </tr>
            </table>
<form name="form1" method="POST" action="<%=MM_editAction%>">
  <table width="100%" border="0" align="center">
    <tr> 
      <td height="50" colspan="2" bgcolor="#668ED4" class="unnamed1"> <div align="center">功能菜单项目: 
          <%
			mystyle = request.querystring("style")
			mystyle = int(mystyle)
		%>
          <select name="fstyle" id="fstyle" onChange="MM_jumpMenu('self',this,0)">
            <%
		  	MySql = "select * from gsjj"
			set lyjnet = conn.Execute(MySql)
			While not lyjnet.EOF
				MyValue = lyjnet.fields.item("sqlindex")
				if mystyle = MyValue then
					response.write("<option value='gsjj.asp?style=" & lyjnet.fields.item("sqlindex") & "' selected>" & lyjnet.fields.item("sqlstyle") & "</option>")
				else
					response.write("<option value='gsjj.asp?style=" & lyjnet.fields.item("sqlindex") & "'>" & lyjnet.fields.item("sqlstyle") & "</option>")
				end if
				lyjnet.MoveNext
			Wend
		%>
          </select>
          <strong> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;修改的项目:<%=(rs.Fields.Item("sqlstyle").Value)%></strong></div></td>
    </tr>
    <tr> 
      <td width="10%" align="center" bgcolor="#668ED4" class="unnamed1">中文内容</td>
      <div align="center"> 
        <td width="90%" align="center" bgcolor="#668ED4" class="unnamed1"> <div align="center"> 
            <textarea name="ftext" id="ftext" style="display:none"><%=(rs.Fields.Item("sqltext").Value)%></textarea>
            <iframe ID="eWebEditor1" src="editor/ewebeditor.asp?id=ftext&style=s_popup" frameborder="0" scrolling="no" width="650" HEIGHT="400"></iframe>
          </div></td>
      </div>
    </tr><!--
    <tr> 
      <td align="center" bgcolor="#668ED4" class="unnamed1">英文内容</td>
      <td height="54" align="center" bgcolor="#668ED4" class="unnamed1">
	  <div align="center"> 
            <textarea name="fetext" id="fetext" style="display:none"><%=(rs.Fields.Item("sqletext").Value)%></textarea>
            <iframe ID="eWebEditor1" src="editor/ewebeditor.asp?id=fetext&style=s_popup" frameborder="0" scrolling="no" width="650" HEIGHT="400"></iframe>
          </div>
	  </td>
    </tr>-->
    <tr> 
      <td height="54" colspan="2" align="center" bgcolor="#668ED4" class="unnamed1"> 
        <div align="center"> 
          <input type="submit" name="Submit" value="  更新记录  ">
          <input type="reset" name="Submit2" value="重置">
        </div></td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form1">
  <input type="hidden" name="MM_recordId" value="<%= rs.Fields.Item("sqlindex").Value %>">
</form>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>