admin_fir.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 104 行

<%
'****************************************************
' 玫瑰情缘 2006v3.0      power by www.meigui8.cn
' email: [e-mail]  , [e-mail]
' web: http://www.meigui8.cn
' copyright (c) 2006 meigui8.cn all rights reserved.
'****************************************************
dim session_for
session_for=joekoe_cms.web_cookies&"_admin_"
redx="&nbsp;<font class=red>*</font>&nbsp;"
ukong="<table width='90%' height=2><tr class=bg><td></td></tr></table>"
go_back="<input type=button name=go_back value='返回上一页' onclick=""javascript:history.back(1);"">"

sub format_redirect(r_url)
  call web_clear(0)
  response.clear
  response.redirect r_url
  response.end
end sub

function chk()
  chk=joekoe_cms.chk()
  if session(session_for&"addfrm")=false then chk=false
end function

sub form_first()
  session(session_for&"addfrm")=true
end sub

sub submit_add()
  response.write vbcrlf&"<tr>" & _
		 vbcrlf&"<td></td>" & _
		 vbcrlf&"<td height=30><input type=submit value='提交添加'>　　<input type=reset value='重新填写'>　　"&go_back&"</td>" & _
		 vbcrlf&"</tr></form>"
end sub

sub submit_edit()
  response.write vbcrlf&"<tr>" & _
		 vbcrlf&"<td></td>" & _
		 vbcrlf&"<td height=30><input type=submit value='提交修改'>　　<input type=reset value='重新填写'>　　"&go_back&"</td>" & _
		 vbcrlf&"</tr></form>"
end sub

sub admin_msg(tvar,turl,tt)
  session(session_for&"addfrm")=false
  if tt=0 then
    response.write vbcrlf&"<tr><td colspan=2 align=center><br>"&tvar&"<br><br><a href='"&turl&"'>点击返回</a><br><br><meta http-equiv='refresh' content='3; url="&turl&"'></td></tr>"
    exit sub
  end if
  response.write vbcrlf&"<script language=javascript>alert("""&tvar&""");location.href='"&turl&"';</script>"
end sub

sub admin_read(tvar,tt,rvar)
  dim tit_var
  tit_var="相关"
  if tvar<>"" then tit_var=tvar
  response.write("<a class=read alt='<table border=0 cellspacing=0 cellpadding=0 width=400><tr><td height=25><font class=read><b>"&tt&"</b></font>：</td></tr><tr><td class=htd>"&rvar&"</td></tr></table>'>"&tit_var&"说明</a>")
end sub

sub admin_error(tvar)
  response.write vbcrlf&"<tr><td colspan=2 align=center><br>"&tvar&"<br><br>"&go_back&"<br><br></td></tr>"
end sub

sub admin_td(tvar)
  response.write vbcrlf&"<tr><td class=td colspan=2>"&tvar&"</td></tr>"
end sub

sub admin_td0(tvar,tcol)
  response.write vbcrlf&"<tr><td class=td colspan="&tcol&">&nbsp;"&tvar&"</td></tr>"
end sub

sub admin_table(t1)
  if t1=1 then response.write ukong
  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>"
end sub

sub admin_ender(et)
  dim temp1
  temp1="执行数据库更新查询："&joekoe_cms.num_rs&"次；页面执行时间："&formatnumber((timer()-joekoe_cms.timer_start)*1000,3)&"毫秒"
  response.write vbcrlf&"</table>"
  if et=1 then response.write vbcrlf&ukong&vbcrlf&"<table border=0><tr class=tr0><td align=center><font alt='"&temp1&"'> copyright(c) 2006 <a href=http://www.meigui8.cn/ target=_blank><b><font face=arial color=#cc3300>meigui8</font><font face=arial>cn</font></b></a>. all rights reserved.</font></td></tr></table>"
  response.write vbcrlf&"</center>" & _
		 vbcrlf&"<!--"&temp1&"-->" & _
		 vbcrlf&"</body></html>"
  call web_clear(0)
end sub

sub admin_event(eremark,t1,t2)
  dim remark
  remark=var_null(eremark)
  remark=replace(remark,"'","""")
  remark=replace(remark,chr(10),"")
  remark=replace(remark,chr(13),"")
  sql="insert into admin_event(username,nname,remark,tim,ip,sys) values('"&login_username&"','"&tit&"','"&remark&"','"&joekoe_cms.now_time&"','"&joekoe_cms.ip_sys(0)&"','"&joekoe_cms.ip_sys(1)&"')"
  call joekoe_cms.exec(sql,0)
end sub

'****************************************************
' 玫瑰情缘 2006v3.0      power by www.meigui8.cn
' email: [e-mail]  , [e-mail]
' web: http://www.meigui8.cn
' copyright (c) 2006 meigui8.cn all rights reserved.
'****************************************************
%>