📄 alteritem.asp
字号:
<%
pathlevel="../"
%>
<!--#include file="../database/conn.asp" -->
<!--#include file="../share/checkinput.asp" -->
<!--#include file="../share/checklogin.asp" -->
<script language="javascript">
function del(id,sid,sitem_id)
{
if(window.confirm("确定要删除此项目吗？"))
{
mystring="del.asp?id="+id+"&sid="+sid+"&item_id="+sitem_id
setTimeout('location.href=mystring',1)
location.href=mystring
}
}
</script>
<%
mess=request("mess")
select case mess
case 1
message="项目编号不能为空"
case 2
message="项目名称不能为空"
case 3
message="该项目编号已存在"
case 4
message="该项目名称已存在"
case 5
message="数据不存在或被删除"
case 6
message="时间格式不正确"
case 10
message="添加成功！"
case 11
message="修改成功！"
end select
%>
<table width="100%" border="0" valign=top cellpadding="0" cellspacing="0">
<tr>
<td height="25" valign="middle" bgcolor="#C8E0FB"> <span class="redfont"><strong>教改项目库</strong></span></td>
</tr>
<tr>
<form action="index.asp?id=<%=id%>&sid=<%=sid%>" method="post" name="myform" id="myform" onSubmit="return checkinput()">
<td height="36" valign=middle class=blackfont>
项目编号：<input name="query_newitem_id" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="" maxlength="20">
项目名称：<input name="query_newitem_name" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="" maxlength="20">
<input type="submit" name="Submit" value="查 询"><span class=redfont> ( 输入关键字查询 )</span>
</td>
</form>
</tr>
<tr>
<td height="2" valign="middle" bgcolor="#666666"></td>
</tr>
<tr>
<td height=200 valign="top" bgcolor="#C8E0FB">
<table width="100%" border="0" valign=top align="center" cellpadding="0" cellspacing="0" bgcolor="#f0f0f0" class="blackfont">
<tr bgcolor="#8CBDFF">
<td width="12%" align=center height="25"><strong>项目编号</strong></td>
<td width="25%" align=center><strong>项目名称</strong></td>
<td width="20%" align=center nowrap><strong>项目内容</strong></td>
<td width="12%" align=center nowrap><strong>教改意见</strong></td>
<td width="16%" align=center nowrap><strong>教改时间</strong></td>
<td width="12%" align=center nowrap><div align="center"><strong>操 作</strong></div></td>
</tr>
<%
query_newitem_id=request("query_newitem_id")
query_newitem_name=request("query_newitem_name")
spage=request("page")
call checkinput(query_newitem_id)
call checkinput(query_newitem_name)
if not Isnumeric(spage) then
response.redirect"error.asp?err=2"
end if
sql="select * from alteritem"
if len(query_newitem_id)>0 then
sql=sql&" where newitem_id like '%"&query_newitem_id&"%'"
if len(query_newitem_name)>0 then
sql=sql&" and newitem_name like '%"&query_newitem_name&"%'"
end if
else
if len(query_newitem_name)>0 then
sql=sql&" where newitem_name like '%"&query_newitem_name&"%'"
end if
end if
set rs=server.CreateObject("adodb.recordset")
rs.Cursorlocation=3
rs.open sql,cn,1,3
if rs.eof then
response.write " <span class='redfont'>查询不到或还未添加任何项目</span>"
else
rs.PageSize=10
pagesize=rs.pagesize
pagecount=rs.PageCount
allcount=rs.RecordCount
if cint(spage)<=pagecount and spage>0 then
rs.AbsolutePage=cint(spage)
else
spage="1"
rs.AbsolutePage=cint(spage)
end if
for i=1 to rs.PageSize
%>
<tr bgcolor="eeeeee">
<td height="25" align=center><%=rs("newitem_id")%></td>
<td align=center><%=rs("newitem_name")%></td>
<td align=center nowrap><%=rs("newitem_content")%></td>
<td align=center nowrap><%=rs("check_idea")%></td>
<td align=center nowrap><%=rs("check_time")%></td>
<td align=center><div align="center">
<%
link="index.asp?id="&id&"&sid="&sid&"&snewitem_id="&rs("id")&""
str="<a class=right_white href="&link&" title='修改项目 "&rs("newitem_name")&"'>修改</a> | <a class=right_white href='javascript:del("&id&","&sid&","&rs("id")&")' title='删除项目 "&rs("newitem_name")&"'>删除</a>"
response.write str
%>
</td>
</tr>
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
<tr bgcolor="#8CBDFF">
<td width="100%" height=20 colspan=6 align=center nowrap><div align="right">
共 <%=pagecount%> 页,<%=allcount%> 条记录,每页 <%=pagesize%> 条记录,本页是第 <%=spage%> 页. <a class=right_white href='index.asp?id=<%=id%>&sid=<%=sid%>&page=1&query_newitem_id=<%=query_newitem_id%>&query_newitem_name=<%=query_newitem_name%>'>首页</a>
<% if cint(spage)>1 then
Response.write "<a class=right_white href='index.asp?id="&id&"&sid="&sid&"&page="&cstr(spage-1)&"&query_newitem_id="&cstr(query_newitem_id)&"&query_newitem_name="&cstr(query_newitem_name)&"'>上一页</a> "
end if
if cint(spage)<pagecount then
Response.write "<a class=right_white href='index.asp?id="&id&"&sid="&sid&"&page="&cstr(spage+1)&"&query_newitem_id="&query_newitem_id&"&query_newitem_name="&query_newitem_name&"'>下一页</a> "
Response.write "<a class=right_white href='index.asp?id="&id&"&sid="&sid&"&page="&pagecount&"&query_newitem_id="&query_newitem_id&"&query_newitem_name="&query_newitem_name&"'>尾页</a> "
end if
end if
%> </div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="2" valign="middle" bgcolor="#999999"></td>
</tr>
<%
snewitem_id=request("snewitem_id")
if not Isnumeric(snewitem_id) then
response.redirect"error.asp?err=2"
end if
if snewitem_id>0 then
rs.close
sql="select * from alteritem where id="&snewitem_id
rs.open sql,cn,1,3
if rs.eof then
response.redirect"error.asp?err=1"
else
n=1
end if
end if
%>
<tr>
<td height="25" valign="middle" bgcolor="#C8E0FB"> <span class="redfont"><strong><% if n=1 then response.write "修改" else response.write "添加" end if%>教改项目</strong> *标记为必填项</span></td>
</tr>
<tr>
<td height=200 valign="top" bgcolor="#C8E0FB">
<form action="<% if n=1 then response.write "edit" else response.write "add" end if%>.asp?id=<%=id%>&sid=<%=sid%><%if n=1 then response.write "&snewitem_id="&rs("id")%>" method="post" name="myform" id="myform" onSubmit="return checkinput()">
<table width="500" border="0" valign=top align="center" cellpadding="0" cellspacing="0" bgcolor="#C8E0FB" class="blackfont">
<tr>
<td height="36" valign=middle class=blackfont>
项目编号 ：<input name="newitem_id" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("newitem_id") end if%>" maxlength="20"><span class="redfont"> *</span>
</td>
<td valign=middle class=blackfont>
项目名称 ：<input name="newitem_name" type="text" style="width:120px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("newitem_name") end if%>" maxlength="20"><span class="redfont"> *</span>
</td>
</tr>
<tr>
<td height="36" valign=middle colspan=2 class=blackfont>
项目内容 ：<input name="newitem_content" type="select" style="width:368px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("newitem_content") end if%>" maxlength=150>
</td>
</tr>
<tr>
<td valign=middle colspan=2 class=blackfont>
教改时间 ：<input name="check_time" type="text" style="width:120px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("check_time") else response.write date() end if%>" maxlength="20"><span class="redfont"> 格式:2005-05-20</span>
</td>
</tr>
<tr>
<td height="60" colspan=2 valign=middle class=blackfont>
教改意见 ：<textarea name="check_idea" cols=50 rows=3 type=text style="border: 1px solid #CCCCCC;" value="<% if n=1 then response.write rs("check_idea") end if%>"></textarea>
</td>
</tr>
<tr>
<td height="36" valign=middle align=right class=blackfont>
<input type="submit" name="Submit" value="<% if n=1 then response.write "修 改" else response.write "添 加" end if%>">
</td>
<td height="36" valign=middle align=left class=blackfont>
<input type="reset" name="reset" value="重 置">
</td>
</tr>
<tr>
<td height="20" valign=middle colspan=2 class=blackfont><span class="redfont"><b><%=message%></b></span>
</td>
</tr>
<% if n=1 then
%>
<tr>
<td height="20" colspan=2 valign=middle class=blackfont>
<input name="h_id" type="hidden" value="<%=rs("id")%>" maxlength="20">
</td>
</tr>
<% end if %>
</table>
</form>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
cn.close
set cn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -