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"> </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> 修改的项目:<%=(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 %>