⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 addquestion.asp

📁 在线教育系统包括答疑问题提问课程介绍可见下载等模块设计
💻 ASP
字号:
<%response.buffer=true%>
<HTML>
<HEAD>
<TITLE><%=title%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="css/index1.css">
<link rel="stylesheet" type="text/css" href="css/toolbar2.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<base target="_self">
</HEAD>
<BODY background="image/A-bg.gif" leftMargin=0 topMargin=0>
 <TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=c width=760>
<tr>
<td width=100% height="197" align="center">
<table border="0" cellspacing="0" cellpadding="0" height="85" bgcolor="#eeeeee" width="100%">
<tr>
<td align="center">
<%
username=trim(request.form("login"))
passwd=trim(request.form("passwd"))
chapter=trim(request.form("chapter"))
questiontitle=trim(request.form("title"))
questioncontent=trim(request.form("content"))
Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
	set rs= server.createobject("adodb.recordset") 
mySQL = "SELECT * FROM user where IDname='" & username & "'"
set rs=conn.execute(mySQL)
if rs.Bof or rs.eof then
   isun="true"
 end if
  
If not isun="true" Then
   userid=rs("ID")
   answer="否"
   sql4 = "SELECT * FROM tutorial where ID="& chapter &""
   set rs4=conn.execute(sql4)
   techerid=rs4("teacher")
    sz = "'" & userid & "', '"&chapter & "','"&techerid & "','"&questiontitle & "','"& questioncontent & "','"&answer & "'"
    sql= "insert  into question (id1,id2,id3,title,content,or)  values  (" & sz & ")"
   conn.Execute(sql)
   sql1= "UPDATE user Set degree=degree+1 where ID = " & userid & ""
   conn.Execute(sql1)
 end if
rs.close
set rs=nothing
conn.Close
set conn=nothing
%>
<%if isun="true" then%>
<font color="#FF0000" size="5" face="华文行楷"><b>用户名或密码错误!!</b></font>
<p><font face="华文行楷" size="5"><b><br>
<a href="javascript:window.history.go(-1);">返回</a>
 <%else%> 
 <a href="index.asp">提交成功!!点击返回目录</a> 
 </b></font>
 <%end if%>
</p>
</td>
</tr>
</table>
</td>
 <td valign="middle" align="center">
 </td>
  </tr>
 </table>

 </BODY>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -