test.txt

在线考试系统源码实现远程判卷

<% mystring="Welcome someone,your name is someone."
mystring=REPLACE(mystring,"someone","Edwin c. Orr",17,1)%>


这个例子中的函数REPLACE（）返回字符串”your 
name is Edwin c. Orr.”。第二个参数指定字符串从左数17个字符处被替换。第三个参数指定只有第一次出现时进行替换。如果表达式”someone”在后面又一次出现，则该表达式不会被替换。

str="select * from test_tm where id=1"
set rs=conn.execute(str)

<!--#include file="inc/open.inc" -->
<!--#include file="inc/md5.inc" -->
<!--#include file="inc/css.css" -->
<!--#include file="top.asp" -->
<!--#include file="menu.asp" -->
<!--#include file="inc/bottom.inc" -->
<!--#include file="teacher_login.asp" -->


<!--#include file="../inc/open.inc" -->
<!--#include file="../inc/md5.inc" -->
<!--#include file="../inc/css.css" -->
<!--#include file="../inc/top.inc" -->
<!--#include file="menu.asp" -->
<!--#include file="../inc/bottom.inc" -->

<script language=VBScript RunAt=Server>
sub Session_OnStart
  session("zzstudent")=false
end sub
sub Session_OnStart
  session("zzteacher")=false
end sub
</script>

<%if session("adminadmin")=flase then
  response.redirect("index.asp")
end if%>

  str="select * from user_te where teacher_user='"&te_user_login&"' and teacher_pass='"&te_pass_login&"'"
  set rs=conn.execute(str)

  str="update test_tm set tm_text='"&ch_tm_text&"',img_name='"&ch_img_name&"',da_a='"&ch_da_a&"',da_b='"&ch_da_b&"',da_c='"&ch_da_c&"',da_d='"&ch_da_d&"',da='"&ch_da_OK&"' where id="&ch_id&""
  set rs=conn.execute(str)

  pass=ucase(md5("000000"))
  str="insert into user_te(teacher_user,teacher_name,teacher_pass,teacher_class) values('caiyuqi','蔡玉琪','"&pass&"','超级管理员')"
  set rs=conn.execute(str)

  str="dele from table_name where"
  conn.execute str

检测文件是否存在
<%
Dim fs,strFileNameAndPath
strFileNameAndPath=Server.MapPath("testimages/1.jpg") '你的文件及路径
set fs=CreateObject("Scripting.FileSystemObject")
if fs.FileExists(strFileNameAndPath) then
   response.write "存"
else
   response.write "不在"
end if
%>

指针移动
MoveNext/MovePrevious

删除记录
str="delete from test_tm where id="&del_id&""
set rs=conn.execute(str)

response.redirect("test_base.asp")

<INPUT class=unnamed5 onclick=javascript:history.go(-1) type=button value= 返 回 >

        <font color=#FF0000><span class=unnamed14>ttttt</span></font>

response.write "<font color=#FF0000><span class=unnamed14>没有修改任何信息。　　</span></font>"%><INPUT class=unnamed14 onclick=javascript:history.go(-1) type=button value=" 返 回 "><%

说明：复制表(只复制结构,源表名：a 新表名：b)
SQL: select * into b from a where 1＜＞1 
说明：拷贝表(拷贝数据,源表名：a 目标表名：b)
SQL: insert into b(a, b, c) select d,e,f from b; 
str="select * into bbbb from user_st where 1<>1"
set rs=conn.execute(str)
str="insert into bbbb select * from user_st"
set rs=conn.execute(str)

table_name=cstr(year())&cstr(month())&cstr(day())&cstr(hour())&cstr(minute())&cstr(second())


Server.ScriptTimeOut