|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;收集<%@Language=VBScript%>
<%
ifRequest.ServerVariables("http_method")="POST"then
ifRequest.Form("submit")="到场"then
处置到场试题哀求
setmrs=server.CreateObject("adodb.recordset")
mrs.ActiveConnection="dsn=testsys"
mrs.Source="select*fromquestion"
mrs.Open,,1,3
往数据库的表question中到场试题内容
mrs.AddNew
mrs("teachid")=session("teachid")
mrs("sub")=Request.Form("selsub")
mrs("question")=Request.Form("question")
mrs("A")=Request.Form("opta")
mrs("B")=Request.Form("optb")
mrs("C")=Request.Form("optc")
mrs("D")=Request.Form("optd")
mrs("answer")=Request.Form("answer")
mrs.Update
mrs.Close
setmrs=nothing
endif
endif
%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
</HEAD>
<BODY>
<FORMaction="taddquestion.asp"method=postid=form1name=form1>
<P><STRONG><FONTcolor=crimsonface=幼圆
size=4>往试题库里到场试题</FONT></STRONG></P>
<P>课程---
<%Response.WriteRequest.Form("selsub")%></P>
<P>
<TABLEborder=0cellPadding=1cellSpacing=1width=90%>
<TR>
<TD>标题</TD></TR>
<TR>
<TD><TEXTAREAid=TEXTAREA1name=questionstyle="HEIGHT:114px;WIDTH:60%"></TEXTAREA></TD></TR>
<TR>
<TD>选择谜底
<TR>
<TD>A.
<INPUTid=text1name=optastyle="HEIGHT:21px;WIDTH:40%">
<TR>
<TD>
<P>B.
<INPUTid=text2name=optbstyle="HEIGHT:21px;WIDTH:40%"></P>
<TR>
<TD>C.
<INPUTid=text3name=optcstyle="HEIGHT:21px;WIDTH:40%">
<TR>
<TD>
<P>D.
<INPUTid=text4name=optdstyle="HEIGHT:21px;WIDTH:40%"></P>
<TR>
<TD>
<P>准确谜底
<INPUTid=radio1name=answertype=radiovalue=A>A
<INPUTid=radio2name=answertype=radiovalue=B>B
<INPUTid=radio3name=answertype=radiovalue=C>C
<INPUTid=radio4name=answertype=radiovalue=D>D
</P>
</TD></TR></TABLE><INPUTid=submit1name=submittype=submitvalue=到场>
<%
用范例为hidden的input保留今朝到场试题库的科目称号
Response.Write"<inputtype=hiddenname=selsubvalue="&Request.Form("selsub")&">"
%>
</P>
</FORM>
</BODY>
</HTML>
</p>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|