📄 modifycontent.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<!--#include file="ScoreManage_top.asp"-->
<%
Dim RS1
Set RS1 = Server.CreateObject("ADODB.Recordset")
RS1.ActiveConnection = MM_StudentConn_STRING
RS1.Source = "SELECT * FROM subject"
RS1.CursorType = 0
RS1.CursorLocation = 2
RS1.LockType = 1
RS1.Open()
%>
<%
Dim sql,rs
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString=MM_StudentConn_STRING
objConn.Open
sql="select * from gongshi where Content='" & Request("id") &"'"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,objConn,3,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>公式修改</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #f7f7ff;
}
.STYLE1 {
font-size: 14px;
font-weight: bold;
}
.STYLE2 {
font-size: 18px;
color: #3366FF;
font-weight: bold;
}
-->
</style>
<script language="JavaScript">
function ChangeClass()
{
if(document.form1.test_content.value=="")
{
document.form1.test_content.value=document.form1.ziduan.value;
}
else
{
document.form1.test_content.value=document.form1.test_content.value + "+" + document.form1.ziduan.value; }
}
</script>
</HEAD>
<BODY text=#000000 leftMargin=0 topMargin=0>
<div align="center"><br>
<br>
<span class="STYLE2">公式修改</span><br>
<br>
<form Name="form1" action="ModifyContent1.asp?id=<%=Request("id")%>" method="post">
<table width="300" border="1" cellspacing="0" cellpadding="3" bordercolor="#CCCCFF" style="border-collapse:collapse">
<tr>
<td align="right">项目名称：</td>
<Td align="left">
<select id="ziduan" onChange="ChangeClass()">
<option value="应发总数">应发总数</option>
<option value="实发总数">实发总数</option>
<option value="上交税额">上交税额</option>
<%
while not rs1.eof
%>
<option value="<%=RS1("subjectName")%>"><%=RS1("subjectName")%></option>
<%
rs1.MoveNext
wend
%>
</select>
</Td>
</tr>
<tr>
<td align="center"><span class="STYLE1">统计项目</span></td>
<td align="center" class="STYLE1">公式</td>
</tr>
<%
while not (rs.eof or rs.bof)
%>
<tr>
<td align="center"><input type="text" name="content" value="<%=rs("Content")%>"></td>
<td align="center"><textarea name="test_content" style="width:250;overflow-x:visible;overflow-y:visible;"><%=rs("Test_Content")%></textarea></td>
</tr>
<%
rs.MoveNext
wend
%>
<tr>
<Td colspan="2" align="center"><input type="submit" name="submit1" value="修改"></Td>
</tr>
</table>
</form>
<br />
<br />
</div>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<Iframe src="CopyRight.asp" width="760" height="100" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
</td>
</tr>
</table>
<%
objConn.Close
Set objConn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -